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Library publication ІВМ System/360, PL/i Subset 
Reference Manual, Order No. GC28-8202. Its purpose is 
to aid the programmer and to familiarize him with the 
techniques of PL/I programming. This publication 
therefore provides all information that is not part of 
the PL/I Subset Reference Manual but required by the 
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guage and to have them compiled and executed in the 
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e Storage requirements of PL/I programs and program 
elements 


• The overlay facility 
e Listings produced for PL/I programs 
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connected with PL/I. A list of all pertinent Systems 


Reference Library publications is provided in the 
1 Introduction section of this publication. 








SUMMARY OF CHANGES 


The DOS system now provides for the 
upport of private core-image libraries. 
т a DOS system supporting the batched- 
ob foreground and private core-image 
ibraries, the compiler and the linkage 
ditor may execute in a foreground or in 
‘the background partition. 


A description of errors that may arise 

due to muitiple secondary entry points 

or due to muitipie CSECT names has been 
added. 
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This is a major revision of GC24-9005-5. 


Changes to the text and to the illustrations as well as 


When processing INDEXED files, the KEY 
condition may arise in a number of cases. 
It is described how the programmer may 
identify specific situations at execution 
time. 


A brief description of hardware stops 
caused by severe programming errors has 
been inciuded. 


Also added was an appendix containing 


programming examples together with ex- 
planations. 


additions are 


indicated by a vertical line to the left of the change or addition. 
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This publication complements the Systems 
Reference Library publication IBM System/ 
360, PL/I Subset Reference Manual, Order 
No. GC28-8202 (hereafter referred to as the 
Subset Reference Manual). It provides all 
information that is not part of the lan- 
guage specifications but required by the 
programmer to write programs in the PL/I 
Subset language and to have them compiled 
and executed in the DOS/TOS environment. 


This publication is divided into four 
logical parts: 
Part I - provides all information regard- 
ing the DOS/TOS environment, PL/ 
I data file organization includ- 
ing the ENVIRONMENT attribute, 
linkage between PL/I and 
Assembler modules, and PL/I pro- 
gramming in the DOS/TOS 
environment. 


Part II - provides all information regard- 
ing storage requirements of pro- 
grams written in the PL/I Subset 
language, and a description of 
the overlay facility. 


Part III describes all listings and diag- 
nostic messages produced for PL/ 
I programs running under DOS/TOS 


control. 


Part IV - Appendix. Some of the individu- 
al appendixes provide informa- 
tion taken out of the corres- 
ponding sections to improve the 
readability, e.g., a list of all 
available I/O subroutines. The 
remaining appendixes furnish 
additional reference information 
the PL/I programmer might find 
useful. 


The last section of the Appendix lists 
the implementation-dependent restrictions 
to the PL/I Subset language as it is 
described in the Subset Reference Manual. 
The individual restrictions are listed in 
alphabetical order. 


To free the programmer of the necessity 
of referring to other publications for 
additional information, this publication is 
made as self-supporting as possible by dup- 
licating some of the information given 
elsewhere. However, should this publica- 
tion not give all the details the programm- 
er needs for solving his problem, these 
details can be found in the pertinent SRL 
publication. 


Introduction 


A list of all SRL publications the pro- 
grammer may have to refer to is given 
below: 


IBM System/360 Disk Operating System, 
System Programmer's Guide, 
Order No. GC24-5073 


IBM System/360 Operating System, PL/I 
Library Computational Subroutines, 
Order No. GC28-6590 


IBM System/360 Principles of Operation, 
Order No. GA22-6821 


IBM System/360 Disk and Tape Operating Sys- 
tems, Concepts and Facilities, 
Order No. GC24-5030 


IBM System/360 Disk and Tape Operating Sys- 
tems, Utility Program Specifications, 
Order No. GC24-3465 


IBM System/360 Disk Operating System, Sys- 
tem Control and System Service Programs, 
Order No. GC24-5036 


iBM System/360 Tape Operating System, Sys- 
tem Control and System Service Programs, 
Order No. GC24-3431 


IBM System/360 Disk Operating System, 
Supervisor and Input/Output Macros, 
Order No. GC24-5037 


IBM System/360 Tape Operating System, 
Supervisor and Input/Output Macros, 
Order No. GC24-3432 


IBM System/360 Disk Operating System, Data 
Management Concepts, Order No. GC24-3427 


IBM System/360 Tape Operating System, Data 
Management Concepts, Order No. GC24-3430 


IBM System/360 Disk Operating System, PL/I 
DASD Macros, Order No. GC24-5059 


ee «ел —Á— —ÀÀ —Ó MÀ —— 


1. 16,384 (16K) bytes of core storage on 
one of the compatible models of System/ 
360 (not Model 20, 44). The compiler 
itself requires 10K. More than 10K are 
required if SYSIPT, SYSLST, and/or SYS- 
PCH are DASD files. This is a system 
generation option. 

2. a. Either one IBM 2311 Disk Storage 

Drive or one IBM 2314 or 2319 

Direct Access Storage Facility or 
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b. four IBM Magnetic Tape Drives of 
the series 2400, 2420, or 3420. A 
7-track tape may be used for SYSRE- 
S. The use of a 9-track tape for 
SYSRES will improve the perfor- 
mance. The data conversion feature 
is required for 7-track drives. 

One additional tape drive is 
required for compile-and-go 


Operation. 


3. One card read/punch or one card reader 
and one card punch. 


4. One printer. 


5. One IBM 1052 Printer-Keyboard (required 
for operator-to-system communication). 


6. The optional supervisor feature Program 
Interrupt (PC). 
Note: Either one or both of the units 


listed under items 3 and 4 may be replaced 
by one additional magnetic tape drive per 
replaced unit. 


The speed of compilation is greatly 
reduced if (1) the source program contains 
more than 80 programmer-defined identi- 
fiers, and (2) a 16K system is used to com- 
pile a program greater than 16K. 


For determination of the required work- 


Operating System, System Generation and 


Maintenance, Order No. GC24-5033. 
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The execution-time requirements depend on 
the requirements of the system and th 
object program. 


Additional machine features required for 
arithmetic, compare, and conversion are 
listed in Figure 1. 


Note: At EXEC time all IJKSnn transients 
must be available in the core-image 
library. 


The following units and features are 
support ed: 


1. All of the units and features 


лм 


2. All of the following devices: 

ІВМ 2540* 

IBM 1403 

IBM 3211 

IBM 1404 (for continuous forms only) 
IBM 1442N1 

IBM 1442N2 

IBM 1443 

IBM 2501 

IBM 2520B1 

IBM 2520B2 

IBM 2520B3 

IBM 1445 

IBM 2321 


*The Punch/Read Feed (PRF) special fea- 
ture is not implemented by PL/I. 


3. Additional main storage up to 16 mill- 
ion bytes. 


fae ene тушы eee es qoem pee US pec ue es e т 
[Comparison of/With  |Coded | | {Numeric | | 
| Arithmetic With/And | Fixed | Fixed | Coded {Fixed, |Numeric | 
|Convert To {Decimal | Binary | Float |Sterling|Float | 
p-------------------- 4-------- %------- %-------- %-------- -------- + 
| From | | | | | | 
--------------------1 | | | | | 
| содед fixed decimal | D | D,E? | D,E | D || DF | 
-------------------- %-------- ------ %-------- %-------- -------- + 
|Ғіхей binary | ҺЕ? | X | Е | D,F? | O,F | 
-------------------- %--------1--------4--------4--------1--------4 
{Coded float | ре | F | Е | DF | D,E | 
-------------------- %-------- %-------- %-------- %--------і-------- + 
| Numeric fixed and | D | DF? | D,E | D | D,E | 
| sterling | | | | | | 
-------------------- 1-------- і%-------- %-------- %--------і-------- + 
|Numeric float | DF | D,F | DF | D,F | D,E | 
p-------------------- 4-------- i-------- %-------- 4-------- і-------- + 
[Bit | р px | Е | D | D,F | 
-------------------- %--------і--------і--------і--------і1--------і 
| Character | NP | NP | NP | NP* | Npt | 
р-------------------- Жы За ші Жы шанасына D NCC ET Жаа сыз овошно ќе l 
|D - Decimal feature required. 


[Е - Floating-point feature required. Conversion only. 

|МР - Not permitted. | 

|X - No special features required. 

|- - Conversion only. 

|2 - Floating-point feature only if scale factor not equal to zero. 


Figure 1. Additional Machine Feature for Arithmetic, Comparison, o 
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Running Programs Under DOS/TOS Control 


This section describes the compilation and 
execution of PL/I programs under control of 


the Disk and Tana Operating Svstems Tha 


Tae “гс ay “JY е 4 iav 


pertinent terminology, control statements, 
and their formats are discussed when 


required. 


It is convenient to refer to each stage of 
program development by a particular name, 
because just the term program would be too 


ее ХУУ СУУ" Л na 
унесла апа, 


tharanfarn 


спегегоге, conius ing . 


In program development, the programmer 
writes sets of source statements that may 
form a complete program or part thereof. A 
card deck containing one external procedure 
written in the PL/I Subset language is 
referred to as a source module. A source 
module.is the unit that is processed. during 
a compilation. The compilation results in 

object_modules The first 
object module is produced by the PL/I com- 
piler for all of the file declarations, if 
any, contained in the source module. The 
second object module is produced for the 
source module. Object modules can be 
loaded by the DOS/TOS Linkage Editor рко- 
gram and then executed. An object module 
consists of standard ESD (External Symboi 
Dictionary), TXT (Text), RLD (Relocation 
Dictionary) cards, and one END card. 


To start the execution of a PL/I pro- 
gram, control must be transferred from the 
Disk or Tape Operating System to the object 
program. The external procedure to which 
control is transferred from the Job Control 
program must have the option MAIN. 


Some parts of the object program may not 
be required in storage throughout its 


execution. External procedures that are 
never active simultaneously may use the 
same storage area to save storage. Each 
part of the program that is in storage only 
overia ‘Using “the MAIN 
procedure as an overlay is not permitted. 
Each overlay as well as that part of the 
program that resides in storage throughout 
the execution of the object program is 
referred to as a phase. A phase consists 
of one or more external procedures. For 
detailed information refer to the sections 


fT 


очегіау апа тпе Linkage E Editor or Progr аш. 


Some standard procedures such as PL/I 
built-in functions or conversion subrou- 
tines have been incorporated into the relo- 
catable library as library subroutines. 
Only the code required for calling these 
subroutines is compiled into the object 
module. The library subroutines themselves 
are incorporated into the appropriate 
phases by the autolink feature of the DOS/ 
TOS Linkage Editor program. 


Extra code is required to allow some 
housekeeping during the execution of a PL/I 
program. This code, which is referred to 
as overhead, may either be generated in- 
line in an object moduie or incorporated 
due to an explicit library subroutine call. 


The relationship between the user's PL/I 
mainline program, the PL/I control program, 
and the DOS/TOS system is shown in Figure 
2. 


Note: The PL/I control program is a set of 
library routines in the relocatable library 
which are included into object programs at 

linkage-edit time and perform certain con- 

trol functions at execution time. 


SUPERVISOR 


Intercepts Program Checks, Passes 
Control to PL/I Interrupt Handler 





PL/I PL/I 
MAINLINE CONTROL PROGRAM 


ПОТИ" itialization Routi 
Initialization (Prologue) Initialization Routine 


GO TO Routine | 
GO ТО Extemal Мате - (Return is to External Мате) 
OPEN/CLOSE Routines 
OPEN/CLOSE (Call 5 Transients) 
| SIGNAL Routine Handles 
READ, WRITE, etc. Exceptional Conditions and 


Issues Messages 
END. (MAIN), STOP STOP Routine Calls $ 


Transient for Automatic 


Closing of Files and EOJ 


Interrupt Handler Usually 
Calls $ Transient 
(Retum is Conditional) 


Miscellaneous Subroutines 


Such as: 
ИО Transmitters 


Conversion. Routines $ Transient Агеа 
Built-in Functions (May Call 558 Transients) 





Figure 2. PL/I Program Structure 
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The layout of main storage during execution 
of a PL/I program is shown in Figure 3. 


Lower Storage Е 
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DTF-Appendages 


DTFs and Buffers 





T PL/I User Program Procedures T 
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| LIOCS Modules | 
DTF for SYSPRINT 
Logic Module for SYSPRINT 


PL/I Control Program 







PL/I Library Subroutines 


| Overlay Progrem Area (Optional) | 


DSAs 


{Allocated only During Execution) 


Upper Storage 


Figure 3.  Object-Time Storage Layout 


The Disk And Tape Operating Systems 


The Disk and Tape Operating Systems (DOS/ 
TOS) are a group of processing programs 
with the control and service programs 
required to maintain continuous operation. 
They are self-contained systems and require 
a minimum of operator intervention. 


The processing programs consist of lan- 
guage translators and service programs. 
The group of processing programs can be 
expanded by adding user-written problem 
programs. 


The system control program -- the frame 
work of DOS/TOS -- consists of three 
components: 
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e the Supervisor program, 


e the Job Control program, and 


e the Initial Program Loader (IPL). 


These components are used to load the 
System and to prepare and control the 
execution of ali processing and probiem 
programs within the system. 


The system service programs consist of 
the Linkage Editor and the Librarian. 
These programs are used to bring compiled 
source programs into an executable format 
and to maintain the libraries. 


Systems. 


To make full use of DOS/TOS, the user 
should be familiar with (1) the functions 
of the individual system components and (2) 
the interaction of these components. Users 
of tne overlay feature should be thoroughly 
familiar. with the DOS/TOS Linkage Editor 
program. Users of the label-processing 
facilities should be familiar with DOS/TOS 
data management concepts. This section 
briefly discusses those parts of the DOS/ 
TOS that are of interest to users of the 
PL/I Subset language. 


[л Disk/Tape Operating Systems | 
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Figure 4, 


Schematic Representation of the 
Disk and Tape Operating Systems 


= ————————————— 


The Supervisor handles all hardware inter- 
rupts, causes I/O operations to be per- 
formed, and contains a fetch routine for 
fetching program phases from the core-image 
library. The Supervisor resides in storage 
throughout the execution of all IBM- 
supplied and user-written programs. 


The Job Control program provides job-to- 
job transition within DOS/TOS. It performs 
its functions between job steps and does 
not reside in storage while a problem pro- 
gram is being executed. 


The IPL is of no interest to the PL/I 
programmer. 


System Service Programs 

The Linkage Editor links all relocatable 
object modules that are produced by the 
language translators, i.e., it assigns 
absolute addresses and resolves cross- 
references between different object modules 
(external symbols). The output of the Lin- 
kage Editor can be either immediately 
executed or incorporated into the core- 
image library. 


The Librarian is a group of programs 
used for maintaining the libraries and pro- 
viding printed and/or punched output from 
these libraries. 


The libraries are: 


the system core-image library 

the system relocatable library 

the system source statement library 
private core-image libraries 
private relocatable libraries 
private source-statement libraries 


The core-image library contains object- 
program phases already processed by the 
Linkage Editor. These programs are ready 
for execution under control of the Supervi- 
Sor. The core-image library contains, for 
instance, the system control and service 
programs themselves and the PL/I compiler. 


A DOS system generation option provides 
for the support of private core-image 
libraries on the same type of direct access 
device as the system residence volume. A 
private core-image library has the same 
format and function as the system core- 
image library on the system residence 
volume. When searcning for a program to be 
loaded, the system loader searches the 
private core-image library first, if 
assigned, and then the system core-image 
library. 


The relocatable library contains object 
modules produced by the language transla- 
tors. Object modules may be preceded by 
Linkage Editor control statements. The 
individual modules contained in the relo- 
catable library are used as input to the 
Linkage Editor. Most of the built-in func- 
tions of PL/I as well as service routines 
required for the execution of PL/I object 
programs are contained in the relocatable 
library. 


The source statement library is not used 
by the PL/I compiler or during object pro- 
gram execution. 


Multiprogramming 


DOS and TOS permit the switching of proces- 
Sing between one or two foreground programs 
and one background program, in which case 
all programs reside in storage simul- 
taneously. This method increases the total 
throughput since some program may use the 
CPU while another program is waiting for 
input/output. If more than one program 
requires the CPU, the foreground-1 program 
has the highest and the background program 
the lowest priority. The program(s) of 
lower priority are dormant unti] the 
program(s) of higher priority start (5) 
waiting for a completion of input/output. 


The storage areas - referred to as par- 
programs are defined at system generation 
time and may be changed by the operator 
between job steps. 


In a DOS system which supports the 
batched-job foreground (MPS-BJF) and priv- 
ate core-image library options, the Linkage 
Editor can execute in either foreground 
partition (as well as the background parti- 
tion) provided a minimum of 10K of storage 
is assigned to the partition. When execut- 
ing in a foreground partition, a private 
core-image library must be assigned. 


In a DOS multiprogramming environment 
described above, the DOS PL/I compiler can 
be executed in any partition in the follow- 
ing manner: 


1. At system generation time, link edit 
the PL/I compiler in the background 
partition and place it in the system 
core-image library. 


2. Link edit the PL/I compiler in any 
desired foreground partition and place 
it in a private core-image library 
assigned to that partition. 


3. When executing the PL/I compiler in a 


foreground partition, assign the appro- 
priate private core-image library. 


Running Programs Under DOS/TOS Control 11 


Device Referred to 





| Output device еа by the e PLI ecmpiler: The devica used i is the same as the PL/I standard output device for listing 
(SYSPRINT). (For PL/I object-time messages refer to PROCEDURE Statement in Appendix Н.) 


пл 


Card punching device used by ihe ry i compiler when a punched card objecit deck is specified. 


© SYSOUT _ | Output device combining the functions of SYSLST and SYSPCH. Connot be assigned by an ASSGN statement. 
Input/output device used by the Linkage Editor and the PL/I compiler when compiling and subsequent link-editing 


is specified. 


A private core-image library. If such a library is assigned, the output rrom the Linkage Editor is placed here 
either permanently or temporarily. If such a library is not assigned, output from the Linkage Editor goes to the 
system core-image library. 


SYSCLB 





Console tvoewriter eod for listing messages issued to + 


SYSLOG is also used when a DISPLAY statement appears 1 


ну: vw 


SYSLOG 
to PROCEDURE Statement in Appendix J.) 


Logical device addresses available to the programmer (programmer logical units as opposed to the remaining units, 


which are also referred to as system logical units). SY 


, 9n 


3 are used as work file addresses by 


the language processors and the Linkage Editor. They may bs used as work file or:output file addresses, but the user 
must protect his input files from being destroyed by the compiler or Linkage Editor in the case of a compile-and- 


SY S222 


execute or link-and-execute job. For this purpose, he should use the DISPLAY statement with the REPLY option and 


instruct the operator-to-mount-the input file immediately before opening the file at execution time if-a sufficient 


number of ЏО units is not available. 





Figure 5. 


DOS programs compiled by the DOS PL/I 
compiler can be executed in a foreground 
partition, provided tne supervisor was 
generated with the option MPS-BJF and a 
minimum of 10K of storage is assigned to 
the partition.  PL/I object programs may 
only be executed in batched- job mode. 


Under TOS, the PL/I compiler and the 
Linkage Editor exclusively work in the bac- 
kground partition. TOS programs compiled 
by the PL/I compiler cannot run as fore- 
ground programs. 


The I/O devices used during compilation and 
execution are referred to by logical device 
addresses instead of by their physical 
device addresses. Thus, the user may dis- 
regard the physical device assignments of 
the system configuration he uses.  Moreov- 
er, if a number of different system confi- 
gurations is used, recompilation of a 
Source program is required only if the 
device types (1442, 2540, etc.) change. 
The logical device addresses the PL/I pro- 
grammer should know are listed in Figure 5. 


ч з осу се очса «=n КА сее 4 ле д 
се addresses can Бе assignea 


Logic al device a 


to physical devices 


12 


Logical Device Addresses Used by the PL/I Programmer 


1. when building the system, 
2. by the operator, or 


3. by means of the ASSGN statement (see 
the section The ASSGN Statement). 

ТЕ multi-programming is included in the 
supervisor, independent sets of logical 
device addresses are provided for the back- 
ground area and both foreground areas. 


The Job Control Program 


The Job Control program permits processing 
of batched jobs in background mode. A job 
is the execution of a problem and consists 
of one or more job steps. A job step is a 
Single compilation of an external proce- 

dure, a Linkage Editor run, a Librarian 

run, or the execution of an object program. 


JOB CONTROL STATEMENTS 


The execution of the Job Control program is 
initiated by Job Control statements read 
from SYSRDR. The general format of Job 
Control statements is as follows: 


Name 

Job Control statements are identified 
by two slashes (//) in columns 1 and 2. 
The second slash must be followed by 
one or more blanks. Exceptions are: 

a. The end-of-job statement contains 
/& in columns 1 and 2. 

b. The end-of-data-file statement con- 
tains /* in columns 1 and 2. 


The comments statement contains * 
in column 1 and a blank in column 
2% 


Operation 

The entry in the operation field of a 
Job Control statement describes the 
type of operation to be performed. It 


must be followed by one or more blanks. 


Operand 

The operand may be blank or consist of 
one or more entries separated by com- 
mas. Interspersed blanks are not per- 
mitted. The last entry must be fol- 
lowed by one or more blanks unless its 
last character is in column 71. 


Comments 

Comments are permitted anywhere after 
the trailing blank of the operand 
field. 


The ASSGN Statement 

The ASSGN statement is used to assign a 
logical device address to a physical 
device. The format of the ASSGN statement 
is as follows: 


„Х"55" 
// ASSGN SYSxxx,device-address 
, ALT 


in Figure 5 (with the exception of SYSOUT, 
which cannot be assigned by means of ASSGN 
statements). The system permits programmer 
logical units in the range from 5Ү5000 to 
SYS222. The number of units actually per- 
mitted per partition in a specific instal- 
lation is defined at system generation time 
and normally less than 223. 5Ү5000 to SYS- 
004 are the minimum provided by the system. 


The following restrictions should be 
observed when re-assigning some of the log- 
ical units: 

1. SYSRDR, SYSIPT, SYSIN, SYSLST, and SYS- 
PCH cannot be assigned to 2311 or 2314 
DASD extents by ASSGN statements. In 
case they are assigned to a 2311 or 
2314 DASD extent either at system 


generation time or by the operator, a 
special version of the PL/I compiler 
that needs a minimum of 12K of storage 
for execution must have been cataloged 
at system generation time. 


SYSLNK must be assigned to the same 
device type as SYSRES for DOS and to a 
magnetic tape drive for TOS. Any re- 
assignments must be made before issuing 
an OPTION statement that contains the 
LINK or CATAL option. 


SYSLOG should be assigned to a 1052 
console typewriter. Assignment to a 
printer is possible but degrades the 
system functions and prevents the use 
of the DISPLAY statement with the REPLY 
option. 


SYSCLB cannot be temporarily assigned 
(// in columns 1 and 2). The permanent 
assignment format must be used (ASSGN 
in columns 1 through 5). 


SYS001 to SYS003 must be assigned to 
the same device type (either magnetic 
tape drives, 2319, 2311, or 2314 DASD 
extents) for the entiré duration of a 
compilation. 


where c is the channel number and uu 
the unit number in hexadecimal 
notation. 


X'cuu' 


UA Unassign. The job is canceled if a 
file attached to this logical unit 
is referred to by one of the I/O 
Statements OPEN, CLOSE, GET, PUT, 
READ, WRITE, or REWRITE. 

IGN Indicates the logical unit to be 
unassigned and that all program 
references to the logical device are 
to be ignored. All I/O commands 
issued to the file are ignored. The 
IGN option is not valid for SYSRDR, 
SYSIPT, and SYSIN. For PL/I files, 
the IGN-bit will be checked. And if 
the IGN-bit is on, no OPEN-bit will 
be set. 


X'ss' is the device specification. It is 
used for specifying mode settings for 7- 
track and dual-density 9-track tapes. If 
X'ss' is not specified, the system assumes 
X'90' for 7-track tapes and X'CO' for 9- 
track tapes. The possible specifications 
for X'ss' are listed in Figure 6. 


Note: When creating a 7-track tape file, 
the data-conversion feature must be off. 
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(FSS Sse en eee но 
| | Bytes | | Trans- | { 
| | per | | late | Convert | 
| ss | inch | Parity | Feature | Feature | 
pomp nf pn fn nnd 
{ 10 | 200 | odd | ОБЕ | on | 
| 20 | 200 | even | off | off | 
| 28 | 200 | even | on | off | 
130 1 200 | oda ! off | off | 
| 384 200 | odd | on | off | 
{ 50 1 556 | odd i off | on | 
| 60 | 556 | even | off | off | 
| 68 | 556 | even | оп | off | 
| 70 | 556 | odd | ОБЕ | ОБЕ | 
| 78 | 556 | odd | оп | off | 
| 90 | 800 | odd | off | оп 1 
І AO | 800 | even | off | off | 
| А8 | 800 | even | оп | off | 
| BO | 800 | odd | off | off | 
| 88 | 800 | оа i on | ОБЕ | 
Н f 1 onn 1 ainal nn Annaidh: AL ternal t 
П ~ У 1 ovu 1 әлігі лс. мополоу > «ач, 1 
| СО | 1600 | dual-density 9-track | 
| c8 | 800 | dual-density 9-track | 
Ба ада бол  —— — ы ара салынады. Ј 


Possible Specifications for 
X'ss' in the ASSGN Statement 


Figure 6. 


ALT indicates an alternate magnetic tape 
unit that is used if the capacity of the 
original unit is reached. The characteris- 
tics of the original and the alternate unit 
must be the same. Multiple alternates may 
be assigned to one logical unit. 


Note: All device assignments made with 


the configuration specified at system 
generation time pius any modifications that 
may have been made by the operator. (See 
the section The JOB Statement.) 


The EXEC Statement 


The execution of a job step is initiated by 
the statement: 


// EXEC name 


Name is the name of tne first phase of the 
program to be fetched from the core-image 
library and to be executed. Therefore, 
execution of a PL/I compilation would be 
initiated by the statement 


// EXEC PL/I 

The name must be omitted if a program 
linked in the previous job step of the same 
job is to be executed immediately after the 
link operation. 
The JOB Statement 


Each job begins with the statement: 


// JOB job-name 
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Job-name is a user-defined name of 1 to 8 


characters. 


Note: The JOB statement cancels all pre- 
viously issued OPTION and ASSGN statements. 


The LISTIO Statement 


The LISTIO statement is used to obtain a 
listing of the I/O assignments. The format 


of this statement is 
// LISTIO 


ne of the operands listed in Figure 
e listing is produced on SYSLST. The 


H t 
Fh а 
и: 
Q 
Rn 
ct 
и 
о 
‚з 
4 


|the physical units assigned to | 
| Jalil system logical units. | 


| PROG {the physical units assigned to | 
| |а11 background programmer logical| 
| junits. | 
ылас новина GENS ај SA E RD a ро ESI a j 
{ALL {the physical units assigned to | 


| |а11 logical units. | 


|SYSxxx |the physical units assigned to | 
| ко, specified logical unit. | 


УН ПН аан 
{UNITS [the logical units assigned to all| 
| {physical units. | 
| DOWN |а11 physical units specified ав | 
| | inoperative. ! 
І-------4--------------------------------- 1 
| UA jall physical units not currently | 
| Jassigned to a logical unit. | 
|-------}--------------------------------- 1 
|X'cuu' [the logical units assigned to the| 
| |specified physical unit. | 
ыма саса асады ысы E КИ АА J 
Figure 7. Operands of LISTIO Statement and 


Corresponding Actions 


Ihe МІС Statement 


The MTC statement is used to control opera- 
tions on logical units assigned to magnetic 
tapes. The format of the MTC statement is 


// МТС op-code, SYSxxx l, nn] 


For further details refer to the section 
Multi-File Volumes and Backwards Files. 


AER ee әле. tum M m ee ee ee --. ny шш шы ee e a шш. 
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The OPTION statement is used to specify 
options for the compilation of PL/I source 
programs. Its format is 


// OPTION optioni[,option21l.... 


If this statement is omitted, a set of 
standard options defined at system genera- 
tion time will apply. If more than one 
OPTION statement is issued in one job, all 
further OPTION statements change only those 
options that are respecified. A11 other 
options will remain unchanged. 


All options specified in the OPTION sta- 
tement are canceled when a new JOB state- 





Option 


NOLOG 
DUMP 
NODUMP 


Suppresses the LOG option. 





LINK 
NOLINK 


CATAL 


DECK 
NODECK 


NOLIST Suppresses the LIST option 


LISTX 


NOLISTX Suppresses the LISTX option. 


e 


. NOSYM 





NOERRS 


NOXREF 


Suppresses the XREF option. 


48C has been made for BCDIC and ASCII character sets.) 


MINSYS 
(TOS only) 





Figure 8. 


Function 


LOG Causes all Job Control statements to be listed on SYSLST. 
Causes the contents of core storage and registers to be listed on SYSLST in case of an abnormal termination of the job. 
Suppresses the DUMP option. 


Causes the compiled PL/I program to be written on SYSLNK for later processing by the Linkage Editor. This option, if 
used, must precede all other Linkage Editor control statements, if any. 


Suppresses the LINK option. The LINK option is also suppressed if a serious or disastrous error is detected during 
compilation of a PL/I source program or if an EXEC statement with a blank operand field is read. 


Causes the LINK option to be set. In addition, it causes the cataloging of a phase or program into the core-image 


library after either a /& or a // EXEC MAINT statement has been read. 





| Causes the PL/I compiler to punch an object deck if no disastrous compile-time error has been detected. | 
Suppresses the DECK option. 
LIST Causes the PL/I compiler to list the source program оп SYSLST 


Causes the PL/I compiler to list the object program on SYSLST. 


YM Causes the PL/I to list the symbol table, the block table, the offset table, and the external symbol table on SYSLST. 


Suppresses the SYM option. 
ERRS Causes the PL/I compiler to list all detected errors on SYSLST. 
Suppresses the ERRS option. 


XREF Causes the PL/I compiler to write a cross-reference listing on SYSLST. 


Informs the PL/I compiler that source programs are written in the 48-charocter set in EBCDIC notation. (No provision 


60C Informs the PL/I compiler that source programs are written in 60-character set in EBCDIC notation. 


Causes the Linkage Editor to produce minimum-size modules for later runs on systems with a background program 
area smaller than 24K, when link-editing on systems with a larger background program area. 


ment is read. 
Statement.) 


(See the section The JOB 


‘The options LINK and CATAL are canceled 


1. if severe or disastrous errors have 
been detected during a PL/I 
compilation. 


2. after a new EXEC statement has been 
executed. 


The options that may be used by the PL/I 
programmer are listed in Figure 8. 













Operands Used in the OPTION Statement 
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The PAUSE Statement 

The PAUSE statement can be used to stop 
batched-mode processing in order to save 
output files produced by a previously 
executed program. Its format is 


// PAUSE comments 


The comments are printed on SYSLOG (pro- 
vided SYSLOG has been assigned) to indicate 
the action to be taken by the operator. 


The RESET Statement 

The RESET statement resets 1/0 assignments 
to the standard assignments. The standard 
assignments are those specified at system 
generation time plus any modifications made 
by the operator by means of an ASSGN com- 
mand (as opposed to using an ASSGN control 
statement) without the TEMP option. The 
format of the RESET statement is: 


// RESET 


with one of the operands SYS, PROG, ALL, 
SYSxxx. Тһе meaning of the individual 
operands is described below. 


SYS resets all system logical units to 
their standard assignments. 


PROG resets all programmer logical units to 
their standard assignments. 


ALL resets all programmer and system logic- 
al units to their standard assignments. 


its standard assignment. 


The UPSI Statement 

This statement (User Program Switch Indica- 
tors) allows the user to set program 
switches that can be tested much the same 
as sense switches or lignts used on other 
machines. The UPSI statement has the fol- 
lowing format: 


// UPSI nnnnnnnn 


. The operand consists of one to eight 
characters of 0, 1, or X. Positions con- 
taining 0 are set to 0. Positions contain- 
ing 1 are set to 1. Positions containing X 
remain unchanged.  Unspecified rightmost 
positions are assumed to be X. 


Job Control clears the UPSI byte to 
zeros before reading control statements for 
each job. When Job Control reads the UPSI 
Statement, it sets or ignores the bits of 
the UPSI byte in the communication region. 
Left to right in the UPSI statement, the 
digits correspond to bits 0 through 7 in 
the UPSI byte. Any combination of the 
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eight bits may be tested by problem pro- 
grams at execution time. 


The DOS PL/I compiler checks bit 0 of 
the UPSI byte; the other bits are ingored. 


If bit O is on (1) during compilation, 
Librarian and Linkage Editor statements are 
produced to permit to compiie and catalog 
in one job step into the relocatable 
library. Bit 0 should be off (0) if cata- 
loging into the relocatable library is not 
desired. For further details on cataloging 
refer to the section Cataloging into the 
Relocatable Library. 


Ihe End-of-Data-File Statement 

The end-of-data-file statement (/* in 
columns 1 and 2) serves as a delimiter for 
the input read from SYSIPT. Therefore, 
PL/I programs must be terminated by an end- 
of-data-file statement. This statement is 
also recognized on the programmer logical 
units that are assigned to a card reader. 
This causes the ENDFILE condition to be 
raised for a PL/I input file. 


The End-of-Job Statement 

The end-of-job statement (/& in columns 1 
and 2) indicates that a job has been com- 
pleted. If this statement is omitted, the 
Job Control program may skip the next job 
Stacked on SYSRDR and/or SYSIPT. If SYSRDR 
and SYSIPT are different units, the end-of- 
job statement must appear on both. 


The Comments Statement 


A special comments statement (* in column 1 
and blank in column 2, followed by the 
desired comments) is availabie for longer 
messages. The comments are printed on SYS- 
LOG, but no halt is caused by this 
statement. 


File Label Job Control Statements 


For all Job Control statements referring to 
disk and tape file labels see the section 
File Labels. 


The PROCESS Statement 


= а. 


The PROCESS statement allows the programmer 
to specify compile-time options. More than 
one card may be used per external 
procedure. 

General format: 

* PROCESS option {,option]... 
or 


+ PROCESS option [,option]... 


General rules: 


1. The cards have to precede the PL/I 
source program. They must, however, 
follow the // EXEC PL/I statement. 


2. Тһе card nas to start either with ап 
asterisk or with a plus sign in column 
one, followed by one or more blanks. 
If the plus sign is used it is treated 
as an asterisk. The option list may 
not extend beyond column 71. 


3. Тһе options in the PROCESS statement 
override job-control options or any 
other options encountered in previous 
PROCESS statements. 


The options that can appear in the 
operand field of a PROCESS card are: 


1. Options supported by Job Control: 


DECK NOSYM 
NODECK ERRS 
LIST NOERRS 
NOLIST XREF 
LISTX NOXREF 
NOLISTX 8с 
SYM 60C 


A description of the above options is 
given in Figure 8 in the section The 


a ee ee ee = 


2. Options not supported by Job Control: 
a. OPT, NOOPT 


OPT causes the optimization of 
compiled code. 


NOOPT suppresses the OPT option. 


The default is OPT. 


Optimization implies the deletion 
of as much code as the compiler can 
diagnose as redundant. 


If the option OPT is used, sequen- 
tial assignment statements for the 
Same variable (е.4., А-1; В-Х; A=3; 
are optimized by deletion of the 
first assignment to A because there 
is no reference to A between the 
two assignments to A. 


If the contents of 'А* were 
required between the two assign- 
ments (е.4., were used as control 
values in the event of an interrupt 
such as SIZE, CONVERSION, etc.) the 
assignment statement would have to 
be labeled because labeling a sta- 
tement resets the internal optimi- 
zation control. 


b. STMT, NOSTMT 


STMT causes statement numbers to 
be printed with object time 
diagnostics. 

NOSTMT  suppresses the STMT option. 


The default is NOSTMT. 


Note: In a program consisting of. 
several external procedures, STMT 
must always have been specified for 
is stored on SYSLNK if the object- 
time diagnostic messages for any of 
the external procedures of the pro- 
gram are to include the numbers of 
the source statements causing 
errors. If, for example, STMT is 
Specified only for the second 
external procedure stored on SYS- 
LNK, statement numbers are not 
printed for this procedure. In 
addition, STMT must also have been 
Specified for the first external 
procedure. 


C. LISTO, NOLISTO 

LISTO causes the statement num- 
bers to be listed and the 
offset of the first byte 
used after these statements 
to be printed. 


NOLISTO suppresses the LISTO 
option. 


The default is NOLISTO. 


Note: LISTO overrides LISTX, i.e., 
if LISTO and LISTX are specified, 
the LISTX option is ignored. 


COMPILATICN UNDER DOS/TOS CONTROL 


If a single PL/I source module is to be 
compiled under DOS/TOS control, the card 
sequence should be as follows: 


// JOB job-name 

// OPTION DECE,LIST,NOSYM,60C see note 1 
// EXEC PL/I 

PL/I source module 


/% 
/6 see note 2 
Note 1: This statement causes the PL/I 


compiler to punch an object module on SYS- 

PCH and to list the source program оп SYS- 

LST. The listing of source module symbols 

is suppressed. The source program is writ- 
ten in the 60-character set. LOG, DUMP, 
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LISTX, and ERRS are assumed to have been 
established as standard options at system 
generation time. 

Note 2: Another /& card must be read from 
SYSIPT if SYSRDR and SYSIPT do not refer to 
the same input device. 


me amm a ae о чао «еке «ме «еке «әке SS «е «ке EE OS ON о ан ——41 


| Deck on SYSRDR 


| 
= оде ална SUPREME La ск тына DM 1 
i// JOB MYJOB Д 
|// OPTION DECK, 48C | 
(44  ASSGN SYSIPT, X' 271" ,Х' 50" | 
1% PLEASE MOUNT REEL 4711 ON UNIT 271 | 
|// PAUSE PROCEED | 
|// EXEC PL/I | 
|// EXEC PL/I | 
|// EXEC PL/I | 
1/5 ! 
| -----------------------------------------4 
| Records on SYSIPT 
————— — 4 
| First PL/I source module | 
|/% | 
| Second PL/I source module | 
|/% | 
| Third PL/I source moduie i 
1/% | 
| 8 | 
Беаацыштаымсы ал ыса ғалы ыла ш ШШШ на секаде 1 


Figure 9. Coding for a Job Consisting of 


three PL/I Compilations 


ASSGN statements to change the assign- 
ment of logical device addresses for this 
job may be placed anywhere between the JOB 
and the EXEC statement. Assignments for 
SYSLNK must not ре changed after OPTION 
LINK has been specified. 


Figure 9 shows the coding for a job con- 
Sisting of three PL/I compilations.  SYSRDR 
and SYSIPT are assumed to refer to dif- 
ferent input devices.  SYSIPT is assumed to 
be a 7-track tape drive. 


Since a job step comprises only one 
single compilation, an EXEC statement as 
well as a /* statement is required for the 
compilation of each source module (external 
procedure). 


€ MM tee MM a ao nb, ca. c a nat ae ШШ «еее e" «ее» «ле EE TE аар Ф c tt) D s t “-- 


files on disk: 


10K plus supervisor area required 
for the compiler version used 


In the background partition, with system 
files on disk: 


12K plus supervisor area required 
for the compiler version used 


In the foreground partition, without system 
files on disk: 
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10К plus foreground save area reguired 
for the compiler versicn used 


In the foreground partition, with system 
files on disk: 


12K plus foreground save area required 
for the compiler version used 


The Linkage Editor Program 


The Linkage Editor program relocates the 
object modules produced by the PL/I compii- 
er into an absolute object program. 
Modules retrieved from the relocatable 
library may be incorporated into the object 
program during the Linkage Editor run. 
Programs written in Assembler language and 
assembled by means of the DOS/TOS Assembler 
may also be incorporated. For details on 
the communication with programs written in 
Assembler language refer to the section 
e Conventions The object program 

produced by the Linkage Editor may either 
be executed by using the EXEC statement 
with a blank operand or be incorporated 
into the core-image library. 

if a Linkage Editor run is desired, the 
first Linkage Editor control statement and 
the first EXEC statement must be preceded 
by an OPTION statement with either the LINK 
or the CATAL option. 


In a TOS or DOS non-multiprogramming 
System, the Linkage Editor can run in the 
background partition only. In a DOS multi- 
programming system which also supports the 
private core-image library option, the Lin- 
kage Editor can run in either foreground 
partition (as well as the background) pro- 
vided a minimum of 10K of main storage and 
a private core-image library is assigned. 


LINKAGE EDITOR CONTROL STATEMENTS 


The execution of the Linkage Editor program 
is initiated by Linkage Editor control sta- 
tements read from SYSRDR. The general for- 
mat of Linkage Editor control statements is 
similar to that of the Job Control state- 
ments, except that Linkage Editor control 
Statements have a blank in column 1 instead 
of // in columns 1 and 2. 


The Linkage Editor program uses the fol- 
lowing four control statements: 


e the PHASE statement, 
е the INCLUDE statement, 
e the ENTRY statement, and 


е the ACTION statement. 


The exact format of these statements is 
given in those parts of this section where 
their application is described. 


The ACTION Statement 


This is an optional statement for directing 
the Linkage Editor. If ACTION statements 
are issued to the Linkage Editor, they must 
precede all other input to the Linkage Edi- 
tor on SYSLNK. This can be ensured by 
placing the ACTION statement(s) immediately 
after the OPTION statement with the operand 
LINK or CATAL. The format of the ACTION 
statement is: 

ACTION operand 

The following operands are of interest 
to the PL/I user: 


BG The program is link-edited to 
F1 execute in the specified 
F2 partition. The start address of 


the appropriate partition is 
assumed to be the end of the 
Supervisor (for background) or the 
address of the specified fore- 
ground partition allocated at link 
edit time. Only one of these 
operands may be specified for one 
link-edit step. Use of these 
operands allows the program to be 
link-edited to execute in a parti- 
tion other than the one in which 
the link-edit function is taking 
place. 


In the absence of these operands 
the program is link-edited to 
execute in the partition in which 
link-editing is taking place. 
(These operands are not available 


in TOS). 

NOMAP Suppresses listing of the Linkage 
Editor storage map on SYSLST. 
Diagnostics are written on SYSLOG. 

CANCEL The job is canceled if any error 


is detected during link-editing. 


More than one ACTION statement may be 
issued for one link-editing step. 


Ihe PHASE Statement 

If the program consists of more than one 
phase or if the program is to be cataloged, 
each phase to be link-edited must be pre- 
ceded by a PHASE statement of the following 
format: 


PHASE phase-name,origin 


characters, the first of which must be 
alphabetic but should not be a $ sign. In 


case of multi-phase programs, the phase- 
name must be longer than four characters 
and the first four characters must be 
identical for all phase names of that pro- 
gram. Different programs must differ in 
the first four characters of their phase 
name(s) in order to avoid incorrect storage 
allocation. (See the section Processing of 
Overlays by the Linkage Editor.) 


Origin indicates to the Linkage Editor the 
begin address of this specific phase. An 
asterisk may be used as an origin specifi- 
cation to indicate that this phase is to 
follow either 


the previous phase or the Supervisor at 
the next double-word boundary (for back- 
ground programs) or the start of the 
partition (for foreground programs). 


This simple format of the PHASE state- 
ment covers all normal applications in the 
background partition. For the format of 
the phase origin in overlay structures 
refer to the section Overlay. 


Three methods are available for link- 
editing foreground programs: 


1. Using the statement ACTION Fn. In this 
case, the same set of PHASE statements 
may be used as for background programs. 


2. Using the operand format F*address of 
the PHASE statement for the origin of 
the first (or only) phase. 
address is the absolute address of the 
foreground area in which the link- 
edited program is to be executed. It 
may be specified by a hexadecimal numb- 
er of four to six digits (X'hhhhhh') or 
by a decimal number of five to eight 
digits (dddddddd) or in the form nnnnk, 
where nnnn is two to four digits and K 
equals 1024. For example, an origin 
may be specified as Е+Х'8000" or F+ 
32768 or F*32K. 


3. Executing the link-edit function in the 
desired foreground partition. In this 
case, the same set of PHASE statements 
may be used as for background programs. 


For each method, a foreground save area 
is created at the specified address. The 
(first) phase starts at the first double- 


word boundary following this save area. 


The space allocated to a foreground program 
by the Linkage Editor plus sufficient space 
following the end of the program for dynam- 
ic allocation of PL/I automatic storage 
must be allocated at execution time to the 
appropriate foreground partition. 


Programs compiled by the PL/I compiler 


and PL/I library routines are not 
self-relocating. 
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Note: The autolink feature of the Linkage 
Editor is required to include routines from 
the relocatable library that are to be 
linked with the object modules compiled by 
the PL/I compiier. Therefore, the option 
NOAUTO of the PHASE or ACTION statement 
must never be used. 


The appropriate object modules can be inco- 
rporated into the object program by: 


e compilation, 
e including object card decks, 


e including object modules from th 
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catable library, or 


e using the autolink feature. 


To have the source moduie compiled and tne 
output written on SYSLNK, the card sequence 
must be as follows: 


// EXEC PL/I 
PL/I source module 


/ж 


If SYSRDR and SYSIPT refer to different 
input devices, the PL/I source module and 
tne /* card must be read from SYSIPT. 


Processing by the Linkage Editor and 
execution is suppressed in case severe or 
disastrous programming errors are detected 
during compilation. 


Source modules written in Assembler lan- 
guage may be added in the same manner by 
using the statement // EXEC ASSEMBLY for 
calling the Assembler. For details on the 
communication with programs written in 
Assembler language refer to the section 


To include one or more object card decks 
into the object program, the required con- 
trol cards as well as the sequence in which 
they must be read from SYSIPT or SYSRDR, 
respectively, are shown in Figure 10. 


Note: The INCLUDE card, when used for this 
application, must have the following 
format: 
INCLUDE preceded and followed by blanks 
only 
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[out a ala порака si ps т=ст== ашке 1 
| Cards | Read from | 
}--------------------------- }------------- 1 
| INCLUDE | SYSRDR | 
ј "m | | 
| ои one or more ob-| SYSIPT | 
| 524 ject modules | | 
| тее | | 
[иж | SYSIPT | 
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An INCLUDE statement must be read from SYS- 
RDR for each module to be incorporated into 


the object program from the relocatable 
library. When used for this application, 
the INCLUDE statement must have the format: 


INCLUDE module-name 


Using the Autolink Feature 


If some references to external names remain 
unresolved after all modules have been read 
in from SYSLNK, SYSIPT, and/or from the 
relocatable library, the autolink feature 
of the Linkage Editor searches the relocat- 
able library for module names identical to 
the unresolved names and includes the 
corresponding modules into the object 
program. 
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Private Reiocatabie Library under DOS 
Cataloging and including of relocatable 
modules may be performed by means of a 
private relocatable library. For DOS, the 
private relocatable library resides on an 
extra 1316 disk pack. The 2311 disk drive 
on which tnis pack is mounted has the log- 
ical device address SYSRLB. 


For including modules, the DOS Linkage 
Editor first searches the pack assigned to 
SYSRLB and, if the requested module is not 
found there or if SYSRLB is not assigned, 
it searches the relocatable library on the 
System residence pack. 


If SYSRLB is assigned, relocatable 
modules are cataloged into the private 
relocatable library. Otherwise, they are 
cataloged into the system residence pack. 


For creating private relocatable 
libraries refer to the SRL publicat оп IBM 
System/360, Disk Operating System, System 
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No. GC24-5036. 


For private relocatable libraries under 
TOS see Special Considerations on TOS. 





The ENTRY Statement 

The card input to the Linkage Editor may be 
delimited by an ENTRY statement of the fol- 
lowing format: 


ENTRY (папе) 


Name is the external name of the entry 
point used. The entry point must Бе a pri- 
mary or secondary entry of the external 
procedure that has tne option MAIN. If the 
primary entry point of the MAIN procedure 
is used, the name may be omitted. 


If no ENTRY statement is issued, ENTRY 
with a blank operand is assumed. 


Note: If modules written in Assembler lan- 
guage are to be incorporated into the 
object program, the Assembler END statement 
should have a blank operand field in order 
to avoid confusion of entry points. 


For each file specified in the source pro- 
gram, the compiler generates a separate DTF 
table which includes the names of the I/O 
modules to be called. 


Sometimes different I/O modules have 
identical secondary entry names. For 
example, if a program uses ISAM files and 
- ADDBUFF is specified for one of these files 
and INDEXAREA for anotner, then the secon- 
dary entry point IJHAARZZ occurs in modules 
IJHAARCZ and IJHAARZP, which are provided 
for these two files.. In a case like this, 
-the linkage editor error message 21431 
(Content of statement in error) is 
generated during link-editing.  Inspite of 
this error message, the program may execute 
correctly. 


There is no way of determining before- 
hand whether or not a program with linkage 
error message 21431 will execute correctly. 
TO make sure that the correct module is 
linked to the program, the following should 
be done: 


Message 214031 gives the multiple entry name 
in print positions 64 through 71 and the 
name of the module that was linked to the 
program in print positions 39 through 46. 
The linkage editor output listing repeats, 
in the LABEL column, the multiple secondary 
entry name and also lists the name of the 
other module in which this entry name 
occurs. 


In a new linkage-editor run, now, a 
supersetted I/O module must be specified 
for inclusion in the program. This super- 
setted module wiil contain the individual 
modules whose inclusion caused the error 


message 21431 to be generated.The name cf 
the supersetted module is found as follows: 


Assume that two ISAM files have been 
specified, one with the ENVIRONMENT attri- 
bute ADDBUFF and another with the ENVIRON- 
MENT attribute INDEXAREA. In this example, 
the linkage editor generates message 21431 
with the multiple secondary name IJHAARZZ 
printed in positions 64 through 71 and the 
name of the I/O module in which this secon- 
dary entry name occurs (IJHAARZP, which is 
provided for an ISAM file with the ADDBUFF 
option) printed in positions 39 through 46. 


In the linkage editor output listing, 
the secondary entry name IJHAARZZ appears 
in the column LABEL under the associated 
CSECT name (IJHAARCZ, the name of the 
module which is provided for an ISAM file 
with the INDEXAREA option). 


Figure 11 below shows how to build the 
name of a supersetted I/O module; this name 
should then be specified in an INCLUDE card 
and inserted before // EXEC LNKEDT 
Statement: 


INCLUDE IJHAARCP 
// EXEC LNKEDT 


Name of 
supersetted 
ИО module 


Name of 
ИО module 
included. 


ADDBUF 


specified IJHAARZP 


INDEXAREA 
specified 


IJHAARCP 
eee 


Where the characters of the module names are identical, these 
characters are used in the same positions of the name for the 
supersetted module. 


Where the characters of the module names differ, the lowest 
character is used in the corresponding position of the name for 
the supersetted module. 





Figure 11. Building the Name of a Super- 


setted І/О Module 


Different user-written or PL/I modules to 
be linked to a program by the linkage edi- 
tor may have identical CSECT names, as 
shown in Figure 12. 
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Figure 12. 


Multiple CSECT Names 


The modules shown in Figure 12 may have 
completely different code, or the code of 
the two modules may be identical to a cer- 
tain point, with one of the modules having 
one or more additional entry points (as in 
Figure 12). 


A linkage-edit time, now, the linkage 
editor fetches the required module from the 
relocatable area, where the modules are 
stored under different names, and checks 
whether the corresponding CSECT name is 
already on SYSLNK. If the CSECT name is 
already contained in SYSLNK the second 
module with the identical CSECT name (but 
the different module name) is not linked. 
If a request to any additional entry (ENTRV 
or ENTRZ) exists, an error message is 
issued, but link-editing is continued. 
execution time, an error will result. 


At 


To avoid errors due to multiple CSECT 


names, the modules required must be 


included in the appropriate external proce- 
dure by means of an INCLUDE statement as 
shown in Figure 12. 
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SAMPLE COMPILATION 


The example shown in Figure 13 illustrates 
a combination of all three possibilities to 
build an object program. Four moduies pius 
the appropriate library subroutines are to 
be combined into an object program, which 
is to be executed upon completion of the 
compilation. The example is hased on the 
following assumptions: 


1. One module (A) is a PL/I source module. 
2. Two modules (P1, P2) have been pre- 


viously compiled and punched. 


3. One module (R) is contained in the 
relocatable library. 

Ц. A listing of the source program and the 
svmboi table is required for module A. 

5. A is the entry point to be used. 

6. The job is being executed in the back- 
ground partition. 

Note: The numbers at the left in Figure 13 


are for reference purposes only; they are 
not part of the coding. 
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JOB NO1234 | 
OPTION LINK,SYM,LIST 
PHASE EXAMPLE, * 

EXEC PL/I 

A: PROCEDURE OPTIONS 


N 
RS 


~ 
~ 


(MAIN); 


END /*A*/; 


“ 
ж 


INCLUDE 


deck Р1 


deck P2 


~ 
* 


INCLUDE R 
ENTRY 

EXEC LNKEDT 
EXEC 


. data 
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Figure 13. Sample Compilation 


Explanation 


1 Furnishes the Communication Region of 
the Supervisor with the name of the job. 


2 Specifies the compiler options SYM and 
LIST and enables the PL/I compiler and 
Job Control to write or copy the output 
on SYSLNK for later processing by the 
Linkage Editor. 


3 The PHASE statement precedes all modules 
to be processed by the Linkage Editor. 
The asterisk indicates that the program 
is to be loaded immediately following 
the Supervisor. 


4 Calls the PL/I compiler. 


5 PL/I source program. A (the name of the 
MAIN procedure) is the primary entry 
point. 


6 Causes the subsequent modules Р1 and P2 
to be copied onto SYSLNK. 


7 This statement is copied onto SYSLNK. 
When encountered by the Linkage Editor, 
the module R is fetched from the relo- 
catable library and incorporated. 


8 Delimits the input to the Linkage Edi- 
tor. The blank operand causes the pri- 
mary entry point A to be entered by Job 
Control at execution time. 


9 Calls the Linkage Editor to produce the 
object program. The names of all 
modules called by A, Pi, P2, and R must 
be names of modules contained in the 
relocatable library. These modules are 
automatically incorporated by the auto- 
link feature of the Linkage Editor. 


10 Causes Job Control to fetch the execut- 
able object program and transfers con- 
trol to A for execution. 


11 The end-of-data-file statement delimits 
the input data. If the file name is 
explicitly declared, this statement may 
be tested by means of an ON ENDFILE 
Statement. 


12 End-of-job statement. Їп case of an 
abnormal termination of the job, Job 
Control skips all input up to this 
statement. 


Assumed that all input to be read from 
SYSIPT has been loaded onto a 7-track tape 
reel and that SYSIPT is assigned to the 
tape drive whose physical address is 281, 
the input from SYSRDR and SYSIPT for the 
above example is as shown in Figure 14. 


proque cmm Mmmm 
| | Cards read from SYSRDR | 
ПА ви НЕ НЕ eee шз шш 
| (ии сов No1234 | 
|13|// ASSGN SYSIPT,X'281',X'90' | 
| |77 OPTION LINK,SYM,LIST | 
| | PHASE EXAMPLE, # | 
| јии EXEC PL/I | 
| | INCLUDE | 
| | INCLUDE R | 
| | ЕМТВУ | 
| (ии EXEC LNKEDT | 
| (ии EXEC | 
(14 /5 | 
МЕРЕН at ии i dada ла ија ОИ at las Ј 
Figure 14. Control Cards and Input Units 
for Deck Shown in Figure 13 
(Part 1 of 2) 
Explanation 


13 SYSIPT is assigned to a 7-track tape 
drive. (The assignment differs from the 
installation standard.) 


14 /& must appear on both SYSRDR and 
SYSIPT. 


"кеден rere ee T CM 1 
| | Cards read from SYSIPT | 
| І-------------------------------------- 1 
| | A: PROCEDURE OPTIONS (MAIN); | 
| | е | 
|. | Il | 
| | END /*A*/; | 
1 2 | 
| | | 
| | --. deck P1 | 
| | | 
| | ... deck P2 | 
| 14% | 
| | | 
| | ов o da ta | 
| |/% | 
|14|/6 | 
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Figure 14. Control Cards and Input Units 


for Deck Shown in Figure 13 
(Part 2 of 2) 


To execute the same job in a foreground 
partition with a private core-image library 
on a disk unit whose physical address is 
191, the statement 


ASSGN SYSCLB,X'191' 
must follow the JOB card. In this case, 


the program is link-edited to be loaded at 
the start of the foreground partition. 
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Cataloging 


Cataloging of frequently used program 
phases or object modules into one of the 
DOS/TOS libraries greatly reduces the time 
required for card reading and/or Linkage 
Editor processing. Object moduies may be 
cataloged into the relocatable library. 
Executable programs already processed by 
the Linkage Editor may be cataloged into 
the system or, if assigned, a private core- 


image library. 


The name of a phase or module must be 
unique for each library If phases or 


А о У Ма б 
and having the same name is automatically 
deleted. This necessitates some naming 
conventions for each installation in order 
to prevent a user from deleting programs 
that are either part of the system or cata- 
loged into the library by other programmers 
using the same instaiiation.  Core-image 
library phase names starting with $ as well 
as relocatable library module names start- 
ing with IJ are names of system programs. 
For this reason, the user should be very 
careful when cataloging phases or modules 
the names of which start with the above 
characters. 


The Library routine that handles cata- 
loging and deleting is called by the Job 


zx 2 1 ic $ p. REA gig carte oa oe 
Controi statement // EXEC MAINT. 


Cataloging Into The Core-Image Library 


If a program is to be cataloged into the 
core-image library, the statement // OPTION 
with the CATAL option must be given prior 
to Linkage Editor processing, i.e., this 
Statement must precede the first PHASE card 
of the program to be cataloged in case of 
compile-and-link runs. Ороп successful 
completion of Linkage Editor processing the 
program is then automatically cataloged 
when an // EXEC LNKEDT and /& card is read. 
(Note that no // EXEC statement without 
name must precede the // EXEC LNKEDT or /& 
statement in this job.) No further catalog 
control statements are required. 


If a private core-image library is 
assigned, the program is cataloged into 
that library rather than into the system 
core-image library. 


Note: An error may occur if a phase exists 
in the core-image library whose name starts 
with the same four characters as the pro- 
gram to be cataloged (see the publication 


ье 
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Programs or phases that are no longer 
required іп the core-image library may ke 
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two possible formats of which are as 
follows: 


DELETC phaselí,phase21]... 
DELETC prg1.ALL[,prg2.ALL]... 


The first format is used to delete 
single phases. The operands рһаве1, pha- 
se2, etc., each specify the name of one 


h ту 

h sp | шат 
phase to be deleted. The second format is 
used to delete entire programs. Since the 
first four characters of all phase names of 
any program are identical, the entire pro- 
gram is deleted if these four characters 
are specified. рү41, prg2, etc., must 
therefore ре exactiy four characters iong. 


Cataloging Into The Relocatable Library 


Each card deck to be cataloged into the 
relocatable library must be preceded by the 
control statement 


CRTATO Я 


тт 2.4.1 АҒ, 2% 1 
LALALR тобамле-"пато, У. : 


The module specified by the operand 
module-name is then incorporated into the 
relocatable library. Cataloging stops when 
the END card of the module has been cata- 
loged. The module may be preceded but not 
followed by Linkage Editor control 
statements. 


v.m specifies the change level at which 
the module is to be cataloged. v may be 
any decimal number from 0 through 127. п 
may be any decimal number from 0 through 
255. A change level of 0.0 is assumed if 


this operand is omitted. 


Compilation of a PL/I source module may 
result in two object modules. (The first 
one will be referred to as file module and 
the second one as procedure module in this 
section.) The file module is produced for 
all of the file declarations (except file 
name parameters) contained in the source 
module. The procedure module is produced 
for the source module itself. Note that 
each individual object module requires a 
separate CATALR statement for cataloging. 
The file module may be cataloged under any 
of the file names. 


The DOS PL/I compiler facilitates cata- 
loging into the relocatable library by 
optionally producing control statements on 
SYSPCH. If bit 0 of the UPSI byte (see the 
compilation, the following output is 
generated on SYSPCH depending on whether or 
not a file module is generated with the 
external procedure: 
with file module without file module 
CATALR  Fname 

file module 
CATALR name 
INCLUDE Fname 

procedure module 


CATALR name 
procedure module 


name is the primary entry point of the 
external procedure.  Fname means that the 
name of the external procedure, immediately 
preceded by the character F, is used as the 
name of the file module. The INCLUDE sta- 
tement is generated to have the file module 
automatically included with the procedure 
module. | 


There is no automatic catalog feature 
for compile-and-catalog into. the relocat- 
able library. However, if a sufficient 
rumber of tape drives is available, it is 
recommended to assign SYSPCH to a magnetic 
tape drive апа to reassign the same drive 
to SYSIPT for the catalog step, thus eli- 
minating unnecessary card handling. 


The following example shows what control 
Statements are required for compile-and- 
catalog into the relocatable library: 


// JOB COMPILE AND CATALOG 
* INTO THE RELOCATABLE LIBRARY 
// OPTION SYM,LISTX,DECK 


1 // UPSI 1 
2 // ASSGN SYSPCH,X'182' 
2 // MTC REW, SYSPCH 
// EXEC PL/I 
ene PL/I source program 
/* ees 
3 44 MTC WIM, SYSPCH 
3 // MTC REW, SYSPCH 
3 // RESET SYSPCH 
4 // ASSGN SYSIPT,X'182' 
5 // EXEC MAINT 
76 
Explanation 


1. This statement causes the DOS PL/I com- 
piler to generate control statements 
that precede the object module(s). 


2. Assigns magnetic tape unit 182 to SYS- 
PCH and positions the tape at the load 
point. 


3. Closes and repositions SYSPCH. (Do not 
use the // CLOSE statement since this 
statement unloads the tape, thus caus- 
ing unnecessary operator action). 


ц. Тһе compiler output is now assigned to 
SYSIPT. 


5. The Librarian is called. The CATALR 
statements cause cataloging into the 
relocatable library. 


Note: The control statements are generated 
only on SYSPCH, not on SYSLNK. Thus, 
compile-and-catalog into the relocatable 
library does not preclude the LINK and 
CATAL options in the same job. 


The DELETR statement may be used to 
delete either single modules or entire pro- 
grams contained in the relccatable library. 
All modules whose names start with the same 
3-character combination are considered to 
be part of the same program. The two poss- 
ible formats of the control statement are 


DELETR module-namelí,module-name2]... 
DELETR prgl.ALL[,prg2.ALL]... 


The operands prgl, prg2, etc., must con- 
sist of exactly 3 characters. 


Library Maintenance Runs 


Cataloging and deleting for all libraries 
can be done in one single job step. In the 
following example, the program LNCT is 
deleted from the core-image library and the 
modules BCDFIR and BCDSEC are cataloged in 
the same job step.  BCDSEC is preceded by a 
PHASE statement that is to be cataloged 
with the module. 


// SOB CATALOG TWO DECKS, 
* SECOND WITH PHASE CARD 
// EXEC MAINT 

DELETC  LNCT.ALL 

CATALR  BCDFIR 


... deck BCDFIR 
CATALR BCDSEC 
PHASE BCDPR2,* 
* THIS STATEMENT IS ALSO CATALOGED 
... deck BCDSEC 
/ж END ОЕ MAINT. DECK 
46 


The input deck must be followed by ап 
end-of-data-file statement if another job 
step within the same job follows the main- 
tenance run. The Librarian control state- 
ments and input decks to be cataloged are 


Cataloging 25 


read from SYSIPT. (In TOS, Librarian con- 
trol statements are read from SYSRDR.) 


Two methods are available for cataloging a 
foreground program: 


i. If the program is compiled and link- 
edited in the background, the following 
job stream can be used: 


// JOB CATALFG 
744 OPTION CATAL 
1 ACTION F2 
2 PHASE FGPXYZ, * 
77 EXEC PL/I 
. 
PL/I source deck 
е 
/* 
3 ии ASSGN SYSRLB,X'192' 
// EXEC LNKEDT 
76 


The ACTION statement (1) causes the 
Linkage Editor to allocate storage for 
the program in the storage presently 
allocated to the foreground-two parti- 
tion. The PHASE statement (2) gives 
the program the name FGPXYZ. The 
second operand (*) specifies that the 
program is to start n bytes behind the 
location assigned at link-edit time as 
the start address of the foreground-two 
partition (n is the length of a fore- 
ground save area required by the sys- 
tem). The program to be cataloged is 
compiled in the same job. The ASSGN 
statement (3) assigns SYSRLB so that 
the Linkage Editor can obtain modules 
to be included by the AUTOLINK feature 
from a private relocatable library. 


2. If the program is compiled and link- 
edited in the foreground, two changes 
are made to the above job stream: 


а. The ACTION statement is removed 
because the program will be link- 
edited to execute in the foreground 
partition in which the link-edit 
function is taking place. 


ASSGN SYSCLB, Х' 191' 


is added to assign a private core- 
image library. The program will be 
cataloged in the private core-image 
library. 
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Special Considerations on TOS 


If TOS is used, phases in the core-image 
and modules in the relocatable library are 
not stored at random locations but in 
alphameric order. Therefore, all phases 
and/or modules to be cataloged must also be 
in alphameric order. Maintenance requests 
for the core-image and the relocatable 
library may be given in the same job step 
but must not be intermixed. Note that a 
maintenance run under TOS control causes 
copying of the full system onto a new 
volume that will be located on SYS002. 
SYS001 must be assigned to a tape drive for 
intermediate use in this case. 


The TOS compiler does 
сум 


CATALR statements. However, the user may 
prepare his own CATALR statements and put 


them into the job stream on SYSRDR follow- 
ing // EXEC MAINT. (In TOS, Librarian con- 
trol statements are read from SYSRDR 
instead of from SYSIPT.) The file module 
should be given a name equal to one of the 
file names to avoid the use of an INCLUDE 
Statement for including the file module. 


Users needing a large number of relocat- 
able library. Using a private relocatable 
library yields the following advantages: 


1. Only the relocatable library is copied 
during updating. 


2. The performance of INCLUDE and AUTOLINK 
is considerably faster during proces- 
Sing by the Linkage Editor. 


During Linkage Editor processing and 
library maintenance, the private reiocat- 
able library resides on an additional mag- 
netic tape unit assigned to SYSRLB. A 
private relocatable library is produced by 
preceding the first CATALR or DELETR state- 
ment by the special Librarian statement 
NEWVOL. (The tape reel оп SYS002 to accom- 
modate the newly created relocatable 
library must be initialized with a standard 
volume ilabei.) 


If a private relocatable library is to 
be used on TCS, it must contain all modules 
to be included from the relocatable library 
because SYSRLB and the relocatable library 
on the system's resident library are never 
searched both. 


A file is a set of data stored on an 
external storage medium. Its purpose is 
either one or a combination of the 
following: 


• To provide the program with the required 
input. 


• То store intermediate results obtained 
during the execution of the program. 
This may be required because the storage 
capacity does not suffice to accommodate 
both the program and the data. 


• To store the results obtained by the 
execution of the program (maybe for use 
as input either to the same program at a 
later execution or to another program). 


=== 


tion transferred between internal storagé 
and the external storage medium of the 
file. 

A record is the unit of information 
which is logically transferred between the 
program and the file by a single PL/I READ, 
WRITE, or REWRITE statement. A block may 
contain more than one record (blocked reco- 
rds). In blocked record files, the records 
are buffered until a full block has been 
gathered and then physically transmitted to 
the file. In the case of input files, one 
block is read into a buffer, and each READ 
Statement transfers (locates) one single 
record to the program. 


A label is a special set of records that 
identifies a magnetic tape file or a direct 
access storage device (DASD) file. Labels 
are processed by the PL/I statements OPEN 
and CLOSE. 


A key is the information required to 
locate a record within a DASD file declared 
with the attribute DIRECT. 


File Organization Schemes 


The organization of a file may be consecu- 
tive, regional, or indexed. 


The term file organization is synonymous 
with an algorithm for identifying and 
locating blocks and records on the storage 
medium holding tne file. 
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CONSECUTIVE FILES 


The blocks contained in CCNSECUTIVE files 
are identified by the sequence in which 
they are stored. This renders it imposs- 
ible to.access (or store) the blocks in any 
manner other than sequential. This, in 
turn, implies that the DIRECT attribute is 
not permitted for CONSECUTIVE files. 


A PL/I file declared to be CONSECUTIVE 
may consist of a deck of punched cards, a 
listing on a printer, one or more reels of 
magnetic tape, or some space on one or more 
1316 disk packs used with the 2311 disk 
drive. Other storage media for CONSECUTIVE 
files like the paper tape reader, the opt- 
ical character reader, or teleprocessing 
lines (DOS only) may be addressed by using 
subroutines written in Assembler language 
that will process these files. 


For an example showing the creation and 
updating of a sequential disk file, refer 
to Appendix L. Programming Examples, 
"Creating And Updating a Sequential Disk 
File". 


A magnetic tape file may be contained on 
a Single tape reel or on more than one reel 
(multi-reel file). The logical unit where 
the file is located must be declared in the 
MEDIUM option of the ENVIRONMENT attribute. 
When using a multi-reel file, more than one 
tape drive may be assigned to this logical 
unit by specifying the AIT option in the 
ASSGN statement to overlap processing and 
mounting of tape reels.  Cnly labeled files 
should be used for multi-reél files. 


A magnetic tape may also contain more 
than one file. To positicn the file 
correctly an MTC statement may be used to 
space the tape forward over as many tape 
marks as precede the file to be opened. 
(Refer to Multi-File Volumes and Backwards 
Files in the section “Біле Labels. ) 


REGICNAL FILES 


The regional file organization is possible 
only for DIRECT DASD files. REGIONAL files 
are processed using the DOS Direct Access 
method. Two different methods are used: 


е REGIONAL(1) where records are addressed 
by their relative position in the file 


е REGIONAL(3) where records are addressed 


(1) by the number of the track on which 
they reside, the track number being 


Data Files 27 


relative to the first track of the file 
and (2) by means of a key associated 
with the record. 


For further details refer to the section 
Disk Organization. 
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clared with the attributes DIRECT and 
KEYED, which exclude the use of the STREAM, 
PRINT, SEQUENTIAL, and the buffering attri- 
butes. The KEYLENGTH option of the 
ENVIRONMENT attribute is not permitted for 
REGIONAL(1) files but must be specified for 
REGIONAL (3) files. REGIONAL files permit 
only fixed unblocked records. The V, U, 
BUFFERS, LEAVE, and NOLABEL options of the 
ENVIRONMENT attribute are not permitted for 
REGIONAL files. The maximum reiative reco- 
rd or track number is 22%-1, XTENT 
statements for REGIONAL files must be supp- 
lied in ascending symbolic-unit order. If 
there are multi-volume files, the symbolic 
units must be assigned in consecutive 
order. 


Note on Compatibilit In OS PL/I, certain 
information contained in the key field or 
data field of REGIONAL files is used to 
flag a record of that file as deleted. 
Therefore, if the user plans to create 
files with DOS PL/I and read and/or update 
them with OS PL/I, he should avoid keys or 
data that would cause OS PL/I to consider 
the record as deleted. For detailed infor- 
mation refer to the pertinent section of 
спе OS PL/I Programmers Guide, Order 

No. GC28-6594, 
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REGIONAL(1) Files 


The individual records in a REGIONAL(1) 
file are identified by their position rela- 
tive to the position of the first record in 
the file, which has a relative record numb- 
er of 0. A track is assumed to contain as 
many records as may fit, i.e., if some 
parts of the track are still empty, these 
"holes" are nevertheless counted as real 
records. The number of records per track 
is shown on the Programmer's Reference 
Chart, Form X20-1705. The key used to 
identify individual records and issued with 
the KEY or KEYFROM option of a READ, WRITE, 
or REWRITE statement is not written onto 
the DASD file but specified as a numeric 
field declared as PICTURE '(8)9'. There- 
fore, records to be read from a REGIONAL(1) 
file must not contain keys on the DASD. 

The value contained in the numeric field 
(key) is the relative number of the record 
in the file. 


Creating a REGIONAL(1) File. The extents 
to be used by a PL/I REGIONAL(1) file must 
be preformatted by the DOS Clear Disk uti- 
lity program. (For details refer to the 
SRL publication IBM System/360, Disk and 
Tape Operating Systems, Utility Program 
Specifications, Order No. GC24-3465.) This 
utility program creates dummy records that 
contain a string filled with user-defined 
characters. The file can then be actually 
created by specifying the OUTPUT attribute. 
Figure 15 shows a sample card deck used for 
preformatting a REGIONAL(1) file. 


The DLBL and EXTENT statements are 


described in the section File Labels. Note 
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Sample Card Decks for Preformatting REGIONAL Files 


that the dummy file should have an expira- 
tion date that has already been passed 
because, otherwise, the unexpired-file con- 
dition would prevent the PL/I output file 
from being opened. Note further that the 
dummy file is sequential and that its name 
is UOUT, independent of the actual name of 
the file to be used in the PL/I program. 
The UCL statement and the END statement are 
utility control statements and have a fixed 
format, i.e., no additional blanks must be 
inserted. К-0 means that no key is asso- 
ciated with the records. D=100 means that 
the block length is 100. This value may be 
modified to the user's requirements and 
must be identical with the actual block 
length of the PL/I file. The dollar sign 
is the character to which the file is 
cleared. It may be replaced by any other 
character. 


Files The expression in the KEY or KEY- 
FROM option in READ, WRITE, or REWRITE sta- 
tements must result in a character string 
of the form PICTURE "(8)9". The value п 
represented by this expression is used to 
access the n-th record of the file relative 
to the beginning of the file. n must be 
less than 22%, 
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For a programming example refer to 
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ing And Retrieving a REGIONAL(1) File". 


REGIONAL (3) Files 

Contrary to REGIONAL(1) files, records in 
REGIONAL(3) files are addressed by the 
number of the track on which they are 
located, the track being relative to the 
first track occupied by the file. The 
first track of a REGIONAL(3) file is coun- 
ted as track 0. Each individual record 
contained in one track is associated with a 
key on the DASD in order to distinguish it 
from other records in that track. The 
length of this key is declared in the KEY- 
LENGTH option of the ENVIRONMENT attribute. 
The key is a concatenation of two strings. 
The first (left) key string is a character 
string of a maxi-mum length of 247 charac- 
ters and contains the information required 
to distinguish the records from the remain- 
ing records on tne same track. The second 
(right) key string is a numeric field de- 
clared as PICTURE '(8)9' which contains the 
relative track number. The full key is 
written onto, or read from, the DASD file. 


Like REGIONAL(1) files, REGIONAL(3) 
files require preformatting by the DOS 
Clear Disk Utility program. In addition to 
its clearing function, tne utility program 
resets the record RO (capacity record) to 
reflect that all tracks are empty. The 
file can then be actually created by speci- 
fying the OUTPUT attribute. 


If an attempt is made to write more 
records onto a track than its capacity per- 
mits, the ON KEY condition is raised. 


Files. p 
FROM option in READ, WRITE, or REWRITE sta- 
tements must result in a character string 
whose length is the same as the length spe- 
cified in the KEYLENGTH option of the 
ENVIRONMENT attribute. The last 8 charac- 
ters must be in the form PICTURE '(8)9'. 
The numeric value n represented by the last 
8 characters is used to access the n-th 
track of the file with a key identical to 
the character-string expression. n must be 
less than 22%, 
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INDEXED FILES 


This file organization is supported by the 
DOS PL/I compiler and by the PL/I DASD 
macro instructions. Both methods may be 
used to create, access, and update files 
with the indexed-sequential file organiza- 
tion. For details on the PL/I DASD macro 
instructions refer to the publication IBM 
System/360 Disk Operating System, PL/I DASD 
Macros, Order No. GC24-5059. 
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An indexed-sequential file is one whose 
records are organized on the basis of a 
collating sequence determined Бу control 
fields (referred to as keys) that precede 
each block of data. Тһе key for each block 
of data is from 1 to 255 bytes in length 
and contains the identifier of the last 
logical record in that block.  Indexed- 
sequential files are contained in some 
space allocated on direct access volumes as 
prime areas and index areas. 


The indexed-sequential file organization 
gives the programmer great flexibility in 
the operations he can perform on a file. 
Using this scheme of file organization, he 
has the ability to 


e read or write (in a manner similar to 
that for sequential files) logical reco- 
rds whose keys are in ascending collat- 
ing sequence. 


ə read or write random logical records. 

If a large portion of the file is being 
processed, reading records in this mann- 
er is somewhat slower than reading 
according to a collating sequence since 
a search for pointers in indexes is 
required for the retrieval of each 
record. 
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• add logical records with new keys. Тһе 
system locates the proper position in 
the file for the new record and modifies 
the indexes accordingly. 


Indexes. The ability to read and write 
records from anywhere in ап indexed- 
sequential file is provided by indexes that 
are part of the file. There are always two 
types of indexes: a cylinder index for the 
entire file, and a track index for each 
cylinder. An entry in a cylinder or track 
index contains the identification of a spe- 
cific cylinder or track and the highest key 
associated with that cylinder or track. 

The system locates a given record by its 
key after a search of a cylinder index and 


a track index within that cylinder. 


A third type of index, the master index, 
is optionally available for very large 
files. A master index is generated only if 
the INDEXMULTIPLE option is specified in 
the declaration of the respective output 
file. The master index contains an entry 


for each track су 
ror C 
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master index is present, the search in the 
cylinder index is limited to a search on 
one track. For usual applications, a mast- 
er index is not recommended if the cylinder 
index consists of less than four tracks. 
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The track index always resides on the 
same extent as the prime data area. The 
cylinder and master index may reside on the 
Same volume as the prime data area; howev- 
er, they may also reside on a different 
volume of a different DASD type. The 
cylinder index must be immediately adjacent 
to the master index, if any, on the same 
volume. Master and cylinder index must be 
completely contained in one volume. 


Insertion of Records. A new record added 
to an indexed-sequential file is placed 
into a location on a track which is deter- 
mined by the value of its key field. If 
records were inserted in precise physical 
sequence, insertion would necessistate 
shifting all records of the file that have 
keys higher than that of the one inserted. 
However, an overflow area is available for 
each cylinder. Thus, a record can be 
inserted into its proper position with only 
those records on the track being shifted in 
which the insertion is made. 


Overflow Area. In addition to the prime 
area, whose tracks initially receive the 
records of ап indexed-sequential file, 
there is an overflow area for records for- 
ced off their original tracks by insertion 


of new records. When a record is to be 
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inserted, the records already on the track 
that are to follow the new record are writ- 
ten back onto the track after the new reco- 
rd. Tne last record on the track is writ- 
ten onto an overflow track. Figure 16 
illustrates this adjustment for addition of 
records to an indexed-sequential file whose 
keys are in a numerical ascending sequence. 
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Figure 16. 


When this file is created, its records 
are placed on the prime tracks in the 
Storage area allocated to the file. If a 
record, e.g., record 7, is to be inserted 
into the file, the indexes indicate that 
record 7 belongs on primary track 1.  Reco- 
rd 7 is then written immediately following 
record 5, and records 8 and 10 are retained 
on this track. Since record 11 no longer 
fits, it is written onto an overflow track 
and the proper track index is adjusted to 
show that the highest key on prime track 1 
is 10 and that an overflow record exists. 
When records 17 to 22 are added to the end 
of the file, prime track 2 receives records 
17 to 21 but record 22 does not fit and is 
written following record 11 on the overflow 
track. When record 9 is inserted, record 
10 is shifted to the overflow track after 


record 22. Note that records 10 and 11 on 

the overflow track are chained together to 

show their logical sequence and to indicate 
that they belong to the same prime track. 


Independent Overflow Area An independent 
overflow area can be specified by an EXTENT 
statement (before the program is executed) 
to specify the area extent. If one or more 
of the (cylinder) overflow area(s) become 
full, additional overflow records are writ- 
ten on the independent overflow area. This 
area may be on the same volume as the data 
records or on another volume, but must be 
contained on one single volume. The number 
of overflow tracks reserved on each cylind- 
er of the prime data area is determined by 
the OFLTRACKS option of the ENVIRONMENT 
attribute. 


When using the PL/I DASD macro instruc- 
tions, two tracks per cylinder are reserved 
as overflow area.  Tne number of extents 
per file with PL/I DASD macro instructions 
is restricted to ten. Note that the 
cylinder index constitutes a separate 
extent. 


The location of index areas, overflow 
areas, and the prime data areas on DASD 
devices are specified by means of DLBL and 
EXTENT statements. (Refer to the section 
File Labels.) 
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Record Format and Ке With indexed 
files, all records must be of fixed length 
(blocked or unblocked). Since only one key 
is permitted per block on DASD devices, the 
access method for blocked records requires 
that the key be embedded in the data field 
of the record. The location of the key 
within the record is specified by the KEY- 
LOC option of the ENVIRONMENT attribute. 
The key must be embedded in the data field 
if records are blocked; it may be embedded 
if the records are unblocked. If KEYLOC is 


specified to indicate embedding, the key is 
inserted automatically into the field dur- 
ing creation of the file or during addition 
of records to the file. 


When the PL/I DASD macros are used, a 
record key is located within each record, 
and one extra key is associated with each 
block. This key is identical with the 
highest (or only) record key in the block. 


When processing INDEXED files, the KEY 
condition is raised in a number of cases. 
If the programmer wants to identify a spe- 
cific situation at execution time, take 
action, and continue processing, it is sug- 
gested to include the following coding in 
the program: 


DCL ERRBYTE BIT(8) EXTERNAL; 
CALL ERROUT  (ERROUT is an Assembler 
routine which returns in 
ERRBYTE the contents of the 
error byte) 


IF ERRBYTE - '00000100'B THEN ... 
(duplicate record, for 
example) 


The contents of the error byte for 
indexed-sequential output files and the 
corresponding ON-conditions raised are as 
shown in Figure 17. 


The contents of the error byte for all 
other indexed files and the corresponding 
ON-conditions raised are as shown in Figure 
18. 


The Assembler routine ERROUT is shown in 
Figure 19. (The address of the error byte 
is in the 10th word of the DTF-appendage.) 
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| ОМ condition 
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i The next to the last track of the prime data area has been filled during the load 
| 1 lor extension of the data file. The problem nrogrammer should issus the ENDFL 


macro, then do a load extend on the file with t new extents given. 
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I Cylinder Index orec full IThe Cylinder Index area is not large enough to contain all the eniries needed їо 


index each cylinder specified for the prime data area. This condition can occur 
during the execution of the SETFL. The user must extend the upper limit of the 
cylinder index by using a new extent card. 







Master Index full The Master Index area is not large enough to contain all entries needed to index 
each track of the Cylinder Index. This condition can occur during SETFL. The 
user must extend the upper limit, if he is creating the file, by using an extent 
card. Or, he must reorganize the data file and assign a larger area. 





5 | Duplicate record The record being looded is a duplicate of the previous record. 


| | Sequence check | The record being loaded is not in the sequential order required for loading. = = = 
Prime data area overflow |Тһеге із not enough space in the prime data area to write an EOF record. This р. 


ondition соп occur during the execution of the ENDFL macro. 











Figure 17. Contents of Error Byte For Indexed-Sequential Output Files 


Callie lanati ON-conditon | Followed by | 
"| Тој сее | raised РІ/І ae т 
oc 


{0 | DASD error Any uncorrectable DASD error has occurred (except wrong length record). 


Wrong length record | A wrong length record has been detected during an I/O operation. 


No record found | | The record to be retrieved has not been found in the data o file. This applies to 
Random (RANSEQ) and to SETL in SEQNTL (RANSEQ) when KEY is specified, 
or after GKEY. 


Illegal ID specified The ID specified to the SETL in SEQNTL (RANSEQ) is outside the prime data --- 
file limits. 


Duplicate record The record to be added to the file has a duplicate record key of another record ЕМЕЛ 
in the file. 


Overflow area full An overflow area in a cylinder if full, and no independent overflow area has 
been specified, or an independent overflow area is full, and the additiog cannot 
be made. The user should assign an independent overflow area or extend the 
limit. 


7 | Overflow The record being processed in one of the retrieval functions (RANDOM/SEQNTL) 
is an overflow record. 


* For indexed-sequential with READ KEY 





** OA is raised if the key is too high, otherwise OD is raised. 


Figure 18. Contents of Error Byte For All Other Indexed Files 
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ERROR START 0 
EXTRN  ERRBYTE 
USING %,9 
STM 14,12,12(13) 
LR 9,15 
LA 10, SAVEA 
ST 13, 4(10) 
LR 13,10 
MVC INDic+ 2(1), INDIC+3 
L 1,FILE 
L 1, 36(17 
L 4, AERRBYTE 
USING ERRBYTE,4 
MVC ERRBYTE (1) ,0 (1) 
L 13,43) 
LM 14,12,12 (13) 
BR 14 
DS OF 
SAVEA DC X'03' 
DC AL3 (INDIC) 
DC КО" 
INDIC DC 3x'0' 
DC X'F8' 
FILE DC V(filename) 
AERRBYTE DC ACERRBYTE) 
END 
Figure 19. Assembler Routine ERROUT 


No RECORD condition will be raised for 
retrieving or updating files. The IOCS 
module gets the record length during OPEN 
time from the format-2 file label as it was 
written at creation time. No checking is 
made between this entry and the entry in 
the DTF table. 


For blocked records, the RECORD condi- 
tion will be raised when the first record 
of a block with one or more wrong-length 
records is read. With each execution of a 
READ statement the RECORD condition is 
raised until the last record of the block 
has been read. 


The IOCS modules used by the PL/I (D) 
compiler are not reentrant. The PI/I 
library routine IJKTXCF deblocks such a 
wrong-length record. No other file using 
the same IOCS module may raise the RECORD 
condition before the wrong-length record 
has been deblocked to the end. 


The KEY, KEYFROM, and KEYTO Options for 
INDEXED Files. The expression or variable 
in the KEY, KEYFROM, or KEYTO option of 
READ, WRITE, or REWRITE statements must 
result in or be a character string of the 
same length as the length specified in the 
KEYLENGTH option of the ENVIRONMENT 
attribute. 


Note: In indexed-sequential files, retri- 
eval, updating, and adding of records can 
be performed either sequentially or at ran- 
dom. However, indexed-seguential files can 
be created only sequentially. 


Note on Compatibility. In OS PL/I, certain 
information contained in the key field cr 
data field of INDEXED files is used to flag 
a record of that file as deleted. There- 
fore, if the user plans to create files 
with DOS PL/I and read and/or update them 
with OS PI/I, he should avoid keys or data 
that would cause OS PL/I to consider the 
record as deleted. For detailed informa- 
tion refer to the pertinent section of the 
OS PL/I Programmer's Guide, Form C28-6594. 


Disk Organization 


As an example of a DASD organization, this 
Section describes the 1316 disk pack used 
with the 2311 Disk Storage Drive. The 2316 
disk pack used with the 2314 or 2319 Direct 
Access Storage Facility is organized very 
similarly. However, the 2316 disk pack 
consists of 11 disks with 20 surfaces on 
which data is recorded with double density. 
For further details (also on the 2321 Data 
Cell Drive) refer to the publications IBM 


No. GA26-5988 (for the 2311 and 2321). 


The 2311 DASD uses 1316 disk packs as 
recording medium. One disk pack consists 
of 6 disks. The top surface of the upper 
disk and the bottom surface of the lowest 
disk are not used, which leaves 10 surfaces 
for recording. Each disk surface contains 
203 concentric tracks. Track 1, 2, 3, 
etc., on each surface is physically located 
below or above track 1, 2, 3, etc., of the 
other surfaces. Therefore, the correspond- 
ing tracks are referred to as 203 concentr- 

ders 200 cylinders are used for 
actual recording; the remaining 3 are 
reserved. 


The 2311 is provided with one access arm 
equipped with 10 read/write heads. The 
heads are mounted vertically so that data 
contained in one cylinder can be accessed 
without any mechanical movement. This, 
however, renders it necessary to internally 
switch from surface to surface within a 
Cylinder in case one track (of a consecu- 
tive file) is completely filled. When a 
cylinder is filled, reading or writing is 
resumed on the first track of the next 
cylinder. This technique minimizes the 
access-arm movement time. 


Thus, a disk pack is thought of as con- 
sisting of 200 cylinders, each cylinder 
consisting of 10 tracks. A consecutive 
part of cylinders (or tracks) set aside for 
usage by a specific file is referred to as 
an extent. An extent is defined by an 
EXTENT statement (refer to the section File 
Labels). Іп case two or more files are to 


be accessed alternatingly, each individual 
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Record 0 (Track 
Descriptor) RO 





| Home Address 


Defines the location of the track in 
terms of the physical parameters of 
the files. 


Index Marker 
Indicates the physical beginning of each track. 


Figure 20. Contents of a Track 


file may be assigned a part of consecutive 
tracks per cylinder instead of full cylin- 
ders. For instance, tracks 0 to 4 of 
cylinders 10 to 99 may be assigned to 
FILEA, while tracks 5 to 9 of the same set 
of cylinders may be assigned to FILEB. The 
latter technique is referred to as split- 
cylinder technique. 

The information contained on a track is 
recorded in physical records (see Figure 
20). Each physical record consists of 2 or 
3 fields. 


The first field is a count field (C) 
identifying the record. The programmer is 
not concerned with tnis field. The second 
field is the key field (K). It has the 
length given in the KEYLENGTH option of the 
ENVIRONMENT attribute or in the KEYLEN 
operand of a PL/I DASD macro instruction 
and contains the key given in the KEY or 
KEYFROM option.  CONSECUTIVE and REGIONAL( 
1) files have no key field. The last field 
is the data field (D) and contains the 
block to be read or written. The first 
record (Track Descriptor) of each track 
(RO) is not part of the information trans- 
ferred by a PL/I program but contains some 
Statistical information. The home address 
(HA) is of no interest to the PL/I 
programmer. 


Record Types 


These are five record types that can be 
handled by PL/I programs: 


fixed unblocked 


fixed blocked 
variable unblocked 
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Address Marker 


Indicates the beginning of a new record. The 
record RO does not have an address marker. 


variable blocked 
undefined 


Fixed Unblocked Records 





All records are of the same length. Each 
block contains exactly one record. The 
ENVIRONMENT option used is F(m). 

Fixed Blocked Records 

All records are of the same length. Each 


block contains a fixed number of records. 
(Only the last block of a file may contain 
less records.) The ENVIRONMENT option used 
is F(m,n). 


Variable Blocked Records 

The records are of variable length, each 
block containing a variable number of reco- 
rds. However, a maximum block length is 
specified. To enable the input/output con- 
trol routines to determine the lengths of 
blocks and records, the blocks contain 
extra fields that are not part of the actu- 
al record. The first 4 bytes of each block 
contain a block control field. Each record 
in the block is also preceded by a 4-byte 
record control field. The ENVIRONMENT 
option used is V(m), where m is the maximum 
block size. m must include the number of 
bytes required by both the records and the 
control fields. 


The D Compiler automatically supports 
variable-length blocked records if V(m) is 
specified, i.e., it always accommodates as 
many records in a block as will fit. 


If at the end of a track there is not 
enough space for the whole block, the I/O 
routines write part of the block (but com- 
plete user-defined records) at the end of 
the track and shifts the remaining records 
onto the next track. Boundary problems may 
occur, however, if tne rules for using the 
LOCATE statement with the SET option are 
not followed. 


Variable Unblocked Records 

This is a real subset of variable blocked. 
With variable unblocked records, the value 
of m in V(m) is 8 higher than the largest 
possible record in the file. Variable 
blocked and variable unblocked records may 
be intermixed. 


Undefined Records 


The records are of variable length. Each 
block contains one record. No control 
fields are used. The ENVIRONMENT option 
used is U(m). 


Restrictions 


A block has the meaning that the physic- 
al storage medium is advanced one block 
after the corresponding operation has been 
performed. Іп the case of punched cards, 
for instance, this implies that one card is 
read or punched. This, in turn, implies 
that the remainder of the card is ignored, 
and the next block starts with transmission 
of column 1 of the next card in case a 
block length of less than 80 bytes is spe- 
cified for a card file. 


Input/Output Processing 


Access Methods 

Since records in files declared with the 
CONSECUTIVE option are identified merely by 
the sequence in which they are created, the 
only possibility to read, write, or update 
records in such files is to sequentially 
process the file from its starting point. 
This procedure is referred to as the 
Seguential access method, and files so 
accessed have the attribute SEQUENTIAL. 


In other files, tne records are identi- 
fied by keys. In this case, each individu- 
al record can be accessed by use of the key 
regardless of the physical location of the 
record. This procedure is referred to as 
the direct access method, and a file so 
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accessed has the attribute DIRECT. 


Note:  Indexed-sequential files may be read 


or updated either sequentially or direct. 


Note: If two or more files are simul- 
taneously open on the same physical non- 
DASD device or DASD extent, the order of 
access to the files is unpredictable. Read 
and punch feed of a 2540 Card Read-Punch 
count as two different devices. For 
example, a read and a punch file cannot be 
open at the same tire using the same 1442 
or 2520 Card Read-Punch. As another 
example, if there is a record file assigned 
to a printer and the standard system - 
STREAM - file uses the same printer, both 
files have their own buffers and print 
independently of each other, i.e., the 
printed lines will not necessarily appear 
in the same sequence as the WRITE and PUT 
Statements are executed. 


Buffering 


A buffer is a part of storage used to 
accommodate data to be read or written. 
Buffers are used to allow transmission of 
data asynchronously to the program flow. 


Files with the UNBUFFERED attribute 
allow no overlapping of input/output opera- 
tions. In files declared with the BUFFERED 
attribute, execution of I/O operations is 
overlapped if the option BUFFERS(2) is spe- 
cified in the ENVIRONMENT attribute. For 
files declared with the BUFFERED attribute, 
the buffers can be made available for use 
as work areas by using the READ statement 
with the SET option or the LOCATE state- 
ment, i.e., the based record variables are 
located directly in the buffers. 


Tape files with the UNBUFFERED attribute 
must also have the NOLABEL attribute. 
Therefore, no multi-volume files or 
alternate-tape specifications are 
permitted. 


If OUTPUT is specified in addition to 
UNBUFFERED and NOLABEL, tape labels are not 
checked and not overwritten. 


Disk input and update files with the 
UNBUFFERED attribute are opened with the 
output OPEN routine. Therefore, the 
expiration date for such files must be 
lower than the current date. 


Although buffering attributes are not 
permitted for DIRECT files, one buffer is 
assigned to REGIONAL and INDEXED DIRECT 
files. The minimum length of tne buffer is 
the record length. The maximum length of 
the buffer is the record length + keylength 
* 8 for REGIONAL files and INDEXED DIRECT 
INPUT files. For INDEXED DIRECT UPDATE 
files, the maximum length of the buffer is 
the block length + keylength + 8 + 10 (for 
the sequence link field). 
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File Labels 


A tape reel or disk pack may contain infor- 
Mation that is required for a certain 
period of time. Therefore, each file (tane 
reel or disk extent) must be checked for 
its expiration date. Іп addition, a check 
must be performed to determine if the prop- 
er volume has been mounted for processing. 
These checks are performed by reading and 
comparing special records that are con- 
tained in the respective volume. These 
Special records, which are referred to as 
labels, are processed whenever an OPEN or 
CLOSE statement is executed for a particu- 
lar file. 


The label information is furnished by 
means of special Job Control statements, 
which are described later in this section. 
There are two types of labels: volume 
labels and file labels. 

Volume labeis are used to identify the 
volume (tape reel or disk pack). During 
execution of the OPEN routine, the volume 
serial number is compared against the 
information supplied to the Supervisor. 
Volume labels can be created by means of 
IBM-supplied utility programs. 
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cessed by the program and indicate whether 
or not the file must be retained for a cer- 
tain period of time. When an CPEN state- 
ment is encountered, the information con- 
tained in the file labels of input and upd- 
ate files is compared against the informa- 
tion supplied to the Supervisor. If a mis- 
match is found, a message to the operator 
is printed. When an OPEN statement is 
encountered for an output file, the expira- 
tion date in the file label is checked 
against the date stored in the communica- 
tion region of the Supervisor. If the 
expiration date has been neither reached 
nor passed, a message to the operator is 
printed and the execution of the program is 
interrupted. In case the expiration date 
has been reached or passed, a new file 
iabel is created from the information supp- 
lied through the control cards. The old 
file label is overwritten by the new file 
label. 


Labeled tape files have two types of 
labels: header labels 
The header label precedes each file and 
defines it. The trailer label is written 
at the end of the file. It furnishes the 
information required to determine whether 
the end of the file has been reached or 
whether the file is continued on another 
volume. Tape files may also be unlabeled. 


о) 
а 


This condition is specified by the option 
NOLABEL in the ENVIRONMENT attribute. 


Disk files must be labeled. Disk file 
labeis do not precede or follow the indivi- 
duai file. They are contained in a special 
region referred to as the VTOC (Volume 
Table Of Contents). Disk labels are 
updated either during execution of the 
CLOSE routine or when an end-of-extent is 
reached. Switching from volume to volume 
for multi-volume files is effected automat- 
ically without any programming effort. 
Note:  Puncned-card and print files must 


not be labeled. 


For detailed information and restric- 
tions on label processing see the SRL pub- 
lications describing the DOS/TOS data mana- 
gement concepts, the DOS/TOS Supervisor and 
I/O macro instructions, and the DOS system 
control and service programs. 


Processing of File Labels by PL/I 


PL/I does not provide for label processing 
of UNBUFFERED files. However, file labels 
are checked for expiration (also if INPUT 
is specified) and cleared. The volume 
label is maintained. 


No provision has been made for label 
processing of the standard PL/I files SYSIN 
and SYSPRINT. 


As far as label processing is concerned, 
UPDATE and INPUT files are handled in the 
Same manner. 


Job-Control Statements 


A set of Job Control statements is required 
for each labeled file. This set of state- 
ments must be in a specific sequence and 
immediately precede the // EXEC statement 
for the job step in which the file is 
processed. 


Each set of label information submitted 
within a job or job step is written in the 
appropriate temporary label information 
area. This information is not carried from 
job to job. Unless overwritten by а suc- 
ceeding job step, any label information 
submitted at the beginning of a job can be 
used by a subsequent job step. For 
example, if a job consists of three job 


steps, label information submitted at the 
beginning of the first job step can be used 
by the second and third job steps of the 
job. However, label information submitted 
at the beginning of the second job step 
would destroy the label information written 
at the beginning of the first job step. 


Note: DLBL and EXTENT Job Control state- 
ments for SYSIPT, SYSLST, or SYSPCH must 
precede the corresponding permanent ASSGN 
commands. 


The sequence of Job Control statements 
for disk labels is as follows: 


// DLBL 
// EXTENT (опе or more) 


The Job Control statement for tape 
labels is as follows: 


// TLBL 


The syntax rules are the same as those 
for the other Job Control statements. 
Trailing commas not followed by an operand 
may be suppressed. | 


Note: The former disk and tape label Job 
Control statements DLAB, VOL, XTENT, and 
TPLAB пау still be used. However, the oid 
and new disk label statements must not be 
intermixed, i.e., XTENT is associated with 
DLAB and VOL, and EXTENT is associated with 
DLBL. 


The DLBL Statement 

The DLBL statement furnishes the disk file 
label information. The format of this sta- 
tement is as follows: 


// DLBL filename,['file-ID'],[datel,[codes] 


The meaning and format of the operands is 
described below: 


filename is identical to the name of the 


PL/I file. 
‘file-ID' is the name of the file that is 
recorded on the disk drive as an identifi- 
cation of the file. It may comprise from 1 
to 44 bytes of alphameric data. If less 
than 44 characters are used, the field is 
left-justified and padded on the right with 
blanks. If this field is omitted, the file 
name is used as file-ID. 


date is a field of one to six numeric 
characters. Two formats are possible. The 
first format is yy/ddd, which indicates the 
expiration date of the file for output or 
the creation date for input. (The day of 
the year may have from one to three charac- 
ters.) Optionally, a 1- to ü-digit reten- 


tion period may be specified for output 
files. If this operand is omitted, a 7-day 
retention period is assumed for output 
files. For input files, no checking is 
performed if this operand is omitted or if 
a retention period is specified. 


codes is a 2- or 3-character field indicat- 
ing the type of file label as follows: 


SD for Sequential Disk, 
DA for REGICNAL files, 


ISC for Indexed Sequential using Load Cre- 
ate, or 


ISE for Indexed Sequential using Load 
Extension, Add, or Retrieve. 


SD is assumed if this parameter is 
omitted. 


For output files, the current date is 
used as the creation date. 


Тһе EXTENT Statement 


The EXTENT statement defines an extent of a 
DASD file. One or more EXTENT statements 
must follow each DLBL statement. The 
EXTENT statement has the format 


// EXTENT (SYSxxx],{ssssss],{[t], [nnn], 
[rrrrr]l, [mmmmm], 2441 


The meaning and format of the operands is 
described below. 


SYSxxx (symbolic unit) is a 6-character 
field that indicates the symbolic unit of 
the volume to which this extent applies. 
If this operand is omitted, the symbolic 
unit of the preceding EXTENT statement is 
used. 


For multi-volume REGIONAL files the sym- 
bolic unit numbers in the corresponding 
EXTENT statements must be in direct ascend- 
ing sequence (e.g., SYS006, SYS007, 
SYS008). 


Six characters that indicates the volume 
serial number of the volume to which this 
extent applies. If less than six charac- 
ters are used, the field is right-justified 
and padded to the left with zeros. If this 
operand is omitted, the volume serial numb- 
er of the preceding EXTENT statement is 
used. If no volume serial number was pro- 
vided in that statement, the serial number 
will not be checked. (Files may be des- 
troyed in this case due to mounting of the 
wrong volume.) 


File Labels 37 


t (type) is a 1-digit field indicating the 
type of extent as follows: 


1 - data area (no split cylinder) 

2 - independent overflow area (for indexed 
sequential file) 

4 - index area (for indexed sequential 
file) 


8 - data 


Type 1 is assumed if this operand is 
omitted. 


nnn (sequence number) is a field of one to 
three characters that contains a decimal 
number from 0 to 255. Тһе decimal number 
indicates the sequence number of the extent 
within a multi-extent file. For indexed 


files, the sequence number 0 is always 
associated with the master index. Thus, if 
a master index is specified, the sequence 


number for indexed files starts with 0; 
otherwise, i.e., if no master index is 
used, the first extent of an indexed file 
has the sequence number 1. The extent 
sequence number for all other types of 
files begins with 0. If this operand is 
omitted for the first extent of ISFMS 
files, the extent is not accepted. This 
operand is not required for SD and DA 
files. 


rrrrr (relative track number) is a field of 
one to five characters that indicates the 
sequential number of the track (relative to 
zero) where the data extent is to kegin. 
For instance, track 0 of cylinder 150 on a 
2311 has the relative track number 1500. 

if tnis operand is omitted on an ISFMS 
file, the extent is not accepted. The 
operand is not required for SD or DA input 
files (the extents from the file labels are 
used in this case). 


mmmmm (number of tracks) is a field of one 
to five characters that indicates the numb- 
er of tracks to be alotted to the file. 

The operand may be omitted for SD or DA 
input files. For split cylinders, the 
number of tracks must be an even multiple 
of the number of tracks per cylinder speci- 
fied for the file. 


dd (split cylinder track) is a field of one 
or two digits that indicates the upper 
track number for the split cylinder in SD 
files. 


Note: For INDEXED and REGIONAL files the 
LBLTYP card must also be present. 


The TLBL Statement 


The TLBL statement contains file label 
information for tape label checking and 
writing. Its format is as follows: 
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// TLBL filename, í'file-ID'], 
[file-serial-number], 
[volume-sequence-number], 
(file-sequence-numberl, 
[generation-number], 
[version-number] 


[datel, 


The meaning and format ot the operands 
is described below. 


filename is a field of cne to six charac- 
ters identical to the name of the PL/I 
file. 


*"file-ID' is a field of one to 17 charac- 
ters, contained within apostrophes, that 
indicates the name associated with the file 
on the volume. This operand may contain 
embedded blanks. If this operand is 
omitted for output files, filename is used 
instead. If this operand is omitted for 
input files, no labels are checked. 


date is a field of one to six numeric 
characters. Two formats are possible. The 
first format is yy/ddd, which indicates the 
expiration date of the file or output or 
the creation date for input.  (Tne day of 
the year may have from one to three charac- 
ters.) Optionally, a i- to 4-digit reten- 
tion period may be specified for output 
files. If this operand is omitted, a 0-day 
retention period is assumed for output 
files. For input files, no checking is 
performed if this operand is omitted or if 
a retenticn period is specified. 


file-serial-number is a field of one to six 
characters that indicates the volume serial 
number of the first (or only) reel of the 
file. If less than six characters are spe- 
cified, the field is right-justified and 
padded with zeros. If this operand is 
omitted for output files, the volume serial 
number of the first (or only) reel of the 
file is used. If this operand is omitted 
on input, no checking is performed. 


four digits. The sequence numbers of the 
volumes of a multi-volume file must be in 
ascending order. If this operand is 
omitted for output files, BCD 0001 is 
assumed. No checking is performed if this 
operand is omitted for input files. 
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four digits. "The sequence numbers o£ the 
files of a multi-file volume must be in 
ascending order. If this operand is 
omitted for output files, BCD 0001 is 


assumed, No checking is performed if this 
operand is omitted for input files. 


ЕСЕ that modifies the file-ID. If 
this operand is omitted for output files, 
BCD 0001 is assumed. No checking is per- 
formed if this operand is omitted for input 
files. 


version-number is a field of one or two 
characters that modifies the generation 
number. If this operand is omitted for 
output files, BCD 01 is assumed. No check- 
ing is performed if this operand is omitted 


for input files. 


1. For output files, the current date is 
used as the creation date. 

2. As far as label processing is con- 
cerned, UPDATE files are handled the 
same as INPUT files. 


Examples for Label Statements 


The first two statements in Figure 21 show 
an example of DLBL and EXTENT statements 
used for a sequential 2311 disk input file. 
The statements identify the file declared 
as MASTIN in a PL/I program. Its external 
identification (stored in the VTOC) is 
MASTER-INVENTORY- FILE. No further entries 
in the DLBL statement are required for an 
input file. 


The logical unit used for the file is 
.SYS005 and the volume identification of the 
1316 disk pack to be mounted on SYS005 is 
VOL172. No further EXTENT statement 
Operands are required. 
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The following three statements in Figure 
21 show an example the creation of an inde- 
xed sequential file by usage of the PL/I 
DASD macro LODIS. Іп addition to the pre- 
vious example, the expiration date of the 
file (March 1, 1969) and the code ISC is 
specified in the DLBL statement. There are 
two EXTENT statements. The first one spe- 
cifies the extent of the cylinder index, 
which is extent 1. It starts at track 
number 1000 (i.e., cylinder 100, track 0) 
on logical unit SYS004 and consists of 10 
tracks. The data area, which is the second 
extent, resides on a different logical 
unit: 5Ү5005. Тһе extent number need not 
be specified in this case, but the delimit- 
ing comma must be written. 


The last statement in Figure 21 gives an 
example of a TLBL statement. The file is 
assumed to be an input file. It is no 
multi-file volume and a version number is 
not used. Since it is an input file, no 
date entry has been specified. 


Multi-File Volumes And Backwards Files 


The handling of muiti-file volumes оп the 
2311 requires no special preparation since 
all file labels are available when the file 
is opened. When using tape files, the tape 
must be positioned so that the label can be 
checked during execution of the OPEN rou- 
tine. Positioning is not required for the 
first file on the tape because it is auto- 
matically positioned unless the LEAVE 
option has been specified. For correctly 
positioning the tape for the second, third, 
eee, nth file, the LEAVE option must be 
specified in the ENVIRONMENT attribute. 
This prevents the OPEN routine from rewind- 
ing the tape reel. A labeled tape file has 
the format shown in Figure 22. 
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Figure 21. Examples for Disk and Tape Label Statements 
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Таре Mark 





To position a tape reel that contains 
labeled files at the nth file, the tape 
reel must first be rewound and then spaced 
forward in such a manner that the first 
information read is the header label of the 
nth file. The Job Control statement used 
to control tape drive operations has th 
following form: 


(D ( 


// MTC code, SYSxxx[,nn] 


The operand code is one of the following 
function codes: 


BSF backspace file 

BSR backspace record 

ERG erase gap 

FSF forward space file 
FSR forward space record 
REW rewind 

RUN rewind and unload 
WIM write tape mark 


Forward-space-file and backspace-file 
cause the read head tc be positioned at the 
record following the next tape mark that is 
encountered. 


The operand SYSxxx is the logical device 
address of the tape drive on which the per- 
tinent tape reel is mounted. 


The operand nn is a decimal number from 
01 through 99 that specifies the number of 
times the specified function is to Бе per- 
formed. If this field and the comma pre- 
ceding it are omitted, nn is assumed to be 
01. 


The following example shows the МТС sta- 
tements required to position the tape reel 
on SYS006 at the header label of the third 
data file. 


// МТС ВЕН, 515006 
// МТС FSF, SYS006,03 


In unlabeled tape volumes, the end of 
each file is indicated by a tape mark. A 
tape mark may or may not precede the first 
file. Unlabeled tape files written by PL/I 
programs have a tape mark preceding the 
first file unless NOTAPEMK is specified in 
the ENVIRONMENT attribute. 
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If a magnetic tape file has the DACK- 
WARDS attribute, the read head must be 
positioned behind the trailer label of this 
file before the file is opened. In case a 
file has been written and closed just 
before it is re-opened to be read back- 
wards, it is positioned correctly if the 
LEAVE option was specified for the written 
file.  Unlabeled BACKWARDS files must start 
with a tape mark. 


If an input file of a multi-file volume 
declared with the LEAVE option has been 
closed and the next file of this volume is 
to be opened (or the same file is to be 
opened in the reserve direction), the mag- 
netic tape is positioned correctly only if 
the ENDFILE condition was raised prior to 
the closing of the file. In the case of 
STREAM input, additional (dummy) GET state- 
ments must be issued to synchronize the 
input stream with the ENDFILE condition. 

TO prevent raising of the CONVERSION condi- 
tion, the variables read by these dummy GET 
Statements shouid ре of tne character type. 


Link-Editing And Labeled Files 


Before a program that uses and/or processes 
labeled files can be processed by the Lin- 
kage Editor, the Linkage Editor must be 
instructed to reserve a label area. This 
area must precede the area occupied by the 
program, except in the case of CONSECUTIVE 
disk files where no such area is required. 
To reserve the label area, a special Job 
Control statement must precede the state- 
ment // EXEC LNKEDT. The type of statement 
used depends on whether the program runs 
under control of the Disk Operating System 
or of the Tape Operating System. 


Job Control Statements for DOS 

The format of the Job Control statement for 
processing disk files with the REGIONAL or 
INDEXED option is as follows: 

// LBLTYP NSD (пп) 


The operand nn is the largest number of 
extents tc be used by any single file. 


Note that this number must be enclosed in 
parentheses. 


Note that nn must specify the number of 
EXTENT cards and not the EXTENTNUMBER in 
the ENVIRONMENT attribute. 


The format of this statement for the 
processing of iabeled tape files is as 
follows: 


// LBLTYP TAPE 


Note: This statement is not required for 
processing of labeled tape files if REGION- 
AL files are used at the same time. 


Job Control Statements for TOS 

The format of the Job Control statement for 
the processing of labeied tape files is as 
follows: 


// LBLTYP TAPE(nn) 


The operand nn is the number of labeled 
tape files to be processed. 


Figure 23 shows a source deck including 
Job Control statements for processing one 
REGIONAL file with two extents, and two 
tape files. 


// JOB INVENTRY 
// OPTION LINK, LIST, ERRS, 60C 
PHASE UPDATE, * 
// EXEC PL/I 
INVENTRY : PROCEDURE OPTIONS (MAIN); 
DECLARE MASTER FILE UPDATE RECORD ENVIRONMENT 
(REGIONAL(9). :..)...., 
BACKUP FILE OUTPUT ENVIRONMENT (MEDIUM 
(5Ү5007,2400)....)...., 
EXEPT FILE OUTPUT ENVIRONMENT (MEDIUM 
‚ (5Ү5008,2400)....)...., 


END; 


* 


ЕМТКҮ 
// LBLTYP NSD(02) 
// EXEC LNKEDT 
// DLBL MASTER,’ MASTER INVENTORY FILE’, ,DA 
// EXTENT SYS005, 1427 
// EXTENT SYS006, 1431 
// TLBL BACKUP,’BACKUP INVENTORY’ ,100,2711,,,10,8 
//TLBL EXEPT,’ EXCEPTION INVENTRY’ , 30, 2614,,,10,0 
// EXEC 
data 


* 


/& 





Figure 23. Sample Source Deck with Control 


Statements 


CATALOGING OF LABEL INFORMATION 


For DOS, the DLBL, EXTENT, and TLBL state- 
ments for sequential files may be cataloged 
as standard files so that the programmer is 
relieved from issuing the control cards 
with each execution of the program. For 
details refer to the SRL publication 
describing the DOS system control and sys- 
tem service programs. 


Program-Label Communication 


Figure 24 shows the communication between a 
PL/I source program, the object program, 
Job Control statements, and a 2311 disk 
unit with a 1316 disk pack. 


The LIOCS (Logical Input/Output Control 
System) table produced by the PL/I compiler 
somewhere contains the file name as a 
character string. The communication 
between this table and the actual file 
extent(s) is established by storing the 
extent information in the table during 
execution of the OPEN statement. 


The set of label statements (DLBL, 
EXTENT) to be used for opening the file is 
the one whose DLBL statement contains the 
same file name as stored in the character 
string of the LIOCS table. The logical 
device address is taken from the EXTENT 
card. The physical unit -- in this case a 
2311 disk drive -- is then determined from 
the standard assignment or from the tem- 
porary assignments, respectively. The 
serial number field of the EXTENT statement 
is compared against the volume label of the 
1316 disk pack to determine whether the 
right pack has been mounted. 


The remaining action depends on the file 
type. For INPUT or UPDATE files, the VTOC 
on the disk pack is searched for a label 
matching the file-ID issued in the DLBL 
Statement (MY DEAR FILE in Figure 24.) 

When a matching label is found, the remain- 
ing file information is checked against the 
label information in the УТОС, and the 
extent information is passed to the LIOCS 
table to allow proper addressing of the 
blocks to be transferred. 


In case of OUTPUT files, all existing 
labels in the VTOC are checked against 
overlap with the file to be created. The 
file is opened only if there is no overlap 
with any unexpired file. The new label is 
then written into the VTOC. 


In case of CONSECUTIVE multi-volume 
files, one volume will be opened at a time, 
i.e., the second volume is opened when the 
last extent of the first volume has been 
processed, etc. Opening of the second and 
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following volumes is automatic. Thus, по 
explicit OPEN statement need be given. For 
all other files, all volumes will be opened 
at once. Therefore, all volumes to be pro- 
cessed must be mounted at the same time in 
tnis case. 


The handling of tape label information 
is similar. 


Assignment of System Files to Disk 


In systems with at least 24K positions of 
main storage, the system logical units SYS- 
IPT, SYSLST and/or SYSPCH may be assigned 
to an extent of 2311, 2314, or 2319 disk 


storage. 
It should be noted that the assignment 
of system files to disk requires operator 


intervention. For a complete description 
(also of ASSGN and CLOSE commands) refer to 
the SRL publication System/360 Disk Operat- 
ing, System Control and System Service Pro- 
grams, Order No. GC24-5036. 


The PL/I programmer should be aware of 
the fact that the PL/I standard files SYSIN 
and SYSPRINT are assigned to SYSIPT and 
SYSLST respectively. Since these files 
cannot be closed by the programmer and only 
one PL/I file can be opened for one System 
logical unit on Disk at any one time, the 
use of GET or PUT statements without the 
FILE option should be avoided if there are 
user-declared files for SYSIPT and SYSLST. 
in order to avoid impiied usage of SYSLST 
for comments as a result of error condi- 
tions, it is recommended to use the ONSYS- 
LOG option in the OPTIONS attribute of the 
MAIN procedure. 


The assignment of system logical units 
to disk storage drives must be permanent. 
The operator ASSGN command must be used 
instead of the programmer statement 
(// ASSGN). Temporary assignments (via the 
// ASSGN statement) to other device types 
are permitted. 


Note: The system generation parameter SYS- 
FIL is required to allow assignment of sys- 
tem logical units to a disk drive. 


System input and output files are 


assigned to disk by providing a set of DLBL 
and EXTENT statements and then submitting a 
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permanent ASSGN Command. The set of DLBL 
and EXTENT statements preceding the ASSGN 
command may contain only one EXTENT 
statement. 


The filename in the DLBL statement 
(which will be associated with the SYSxxx 
entry from the accompanying EXTENT state- 
ment) must be one of the following: 


IJSYSIN for SYSRDR, SYSIPT, or tne 
combined SYSRDR/SYSIPT file SYSIN 


IJSYSPH for SYSPCH 
IJSYSLS for SYSLST 


In the DLBL statement, the codes operand 
must specify SD (or blank, which means SD) 
to indicate sequential DASD file type. 


In the EXTENT statement, type may be 1 
(data area, no split cylinder) or 8 (data 
area, Split cylinder). There is no unique 
requirement for the remaining operands of 
the EXTENT statement. 


The ASSGN command must be one of the 
following: 


1.  ASSGN SYSIN,X'cuu' (for a combined 
SYSRDR/SYSIPT file). 


2. ASSGN SYSRDR,X'cuu' (for SYSRDR only). 


3. ASSGN SYSIPT,X'cuu' (for SYSIPT only). 


4. ASSGN SYSPCH,X'cuu' (for SYSPCH). 


5. ASSGN SYSLST,X'cuu' (for SYSLST). 
Note that all must be permanent 
assignments. 


System logical units assigned to disk 
must be closed by the operator. The opera- 
tor CLOSE command must be used to specify a 
System input or output file which has been 
previously assigned to a 2311, 2314, or 
2319. The optional second parameter 
(X'cuu') of the CLOSE command may be used 
(instead of an ASSGN command) to assign the 
system logical unit to a physical device. 
The system will notify the operator that a 
CLOSE is required when the limit of the 
file has been exhausted. If a program 
attempts to read or write beyond the limits 
of the file, the program will be terminated 
and the file must be closed. 









// ASSGN SYS004,X'191' 
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| PL/I source program 


DECLARE FILEA FILE 
Object program UPDATE ENVIRONMENT 
(MEDIUM (SYS004, 2311) 


LIOCS table 


Volume label DC CL8'FILEA 


VOLI2A 





// EXTENT SYSO04, VOLI2A, ,,1000,210 


// DLBL FILEA,'MY DEAR FILE! 


VTOC containing 
label of 


"МҮ DEAR FILE’ 





-------|/О commands in LIOCS table control actual data transfer 
File information chain 
— — — Information flow between VTOC and LIOCS table at open timed 





Figure 24. Program - Label Communication 
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Linkage Conventions 


The user of PL/I programs is not concerned 
with internal linkage during activation and 
de-activation of biocks. To increase the 
capability and/or efficieny of his program 
he may, however, wish to combine modules 
written in the PL/I Subset language with 
modules written in Assembler language. For 
example, the programmer may wish to make 
use of the checkpoint facility. Since 
there is no checkpoint facility in PL/I, 
the user may call a subroutine written in 
Assembler language. Calling of subroutines 
written in FORTRAN or COBOL is not 
permitted. 


Register Conventions 


Some registers may have to be used during 
the execution of the called program. The 
user must save the contents of these regis- 
ters by providing a save area. The address 
of the save area is contained in register 
13. Тһе general registers involved in 
linking a called procedure to the main pro- 
gram are listed in Figure 25. Note that 
floating-point registers are not saved by 
the called subroutine. 


[Ei 3 REIN ce eee hg сар тана аа C EE icut Et 1 
| REGISTER|CONTENTS | 


1 |Address of an argument list. { 
|This list contains the addresses | 
jof the arguments in the sequence| 
[stated in the argument (or para-| 
|meter) list in the CALL, PROCE- | 
|DURE, or ENTRY statement. Each | 
largument requires one full-word | 
Jon full-word boundary. Іп func-| 
|tion references, the argument | 
Jlist is immediately followed by | 
|the address of the field where | 
[the information computed by the | 
|subroutine is stored. | 


14 |А44гевв to which the called sub-| 
{routine returns when execution | 
|has been completed. | 


15 |Branch address, i.e., the | 
laddress in the called subroutine] 
{to which control is transferred | 
|Ғос execution. | 
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Figure 25. General Registers Used for 
Linking to a Subroutine Writ- 
ten in Assembler Language 


цц 


Note: If control is transferred from ап 
Assembler routine to another PL/I subrou- 
tine, registers 7 and 8 must contain the 
same values as when control was trans- 
ferred to the Assembler routine. 


Calling 


Assume that register 13 has been set ear- 
lier in the program. To accomplish 
correct linkage, three additional regis- 
ters (1, 14, and 15) must be set.  Regist- 
er 1 need not be set if no arguments are 
passed on and the call is not a function 
reference. The three different sequences 
that may be used to establish the required 
linkage between the main program and the 
called subroutine are shown in Figure 26. 


Note: The DOS/TOS macro instruction CALL 


may be used to facilitate programming in 
cases 2 and 3 shown in Figure 26. 


| L 15, =V(subroutine) 
| BALR 14,15 
p+--------~--------~~- Gee Se eee 
CNOP 2,4 
L 15,=V(subroutine) 
LA 14, *+64+4#n 
BALR 1,15 
DC A(address1) 
DC A(address2) 


DC A(addressn) 
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L 15,=V (subroutine) 
L 1, =A(listaddr) 
BALR 14,15 


listaddr рс A(address1) 


Ce а 


Figure 26. Three Different Codings for 
Linking the Main Program and 
the Called Subroutine 


Saving 


Each calling program must provide a save 
area to store the contents of the general 
registers used by the called subroutine. 
When communicating with PL/I, the minimum 
length of this area is 20 full-words (80 
bytes). The area may be expanded for 
storing intermediate results or data of 


r T + T | 
| WORD | DISPLACEMENT| CONTENTS | STORED BY | 
|----}-~-----------}----—-----—---+--------------- }~------~---------+---+--------- 4 
| 1 | 0 {Dc x'o3' [Calling module | 
| | [ОС AL3(INDIC)+ | | 
== и = 4------------------------------ 1 
12 | 4 {Save area address of program {Calling module | 
| | |that called the calling program| | 
}----+------------ ГИ ПРИМИ 
13 | 8 [Save area address of called РЕРНИ module if initialized | 
| | [program |by IJKSZCN? | 
}----+------------}-------—----------------------- }~----------------------------- 1 
14 | 12 [Register 14 {Called module | 
р---І------------ 1------------------------------- 4------------------------------ 1 
15 | 16 {Register 15 [Called module ! 
}----4------------ 4------------------------------- ------------------------------- 1 
16 | 20 [Register 0 [Called module ! 
== $----------------------------- --4------------------------------ 1 
| 7 | 24 {Register 1 |Called module | 
=== 4~-+---------------------------- }-~---------------------------- 1 
[xs d қ eo ле | 
Г. | 1---- |---- | 
}----+------------ 4------------------------------- %------------------------------ 1 
{ 18 | 68 [Register 12 {Са11еа nodule | 
}----}+-----------4----------=--------+------------ 4-~---------------------------- 1 
| 19 | 72 [Invocation count {PL/I library | 
}~---}------------}---~--------------------------- }------------------------------ 1 
| 20 | 76 |DSA pointer to embracing {PL/I internal procedures | 
| | |Static block | | 
a В —— a E E алысы қалы ыы ыы ы асы ner ЗАРА 4 


1INDIC is а full-word containing the information on the status of | 


| 
| statement prefixes. 
| 


2Modules. written іп PL/I are initialized Бу IJKSZCN. | 


Figure 27. 


the storage class AUTOMATIC. This storage 
is called the DSA (Dynamic Storage Area). 


Figure 27 shows tne layout of the first 
20 full-words of the DSA of a calling pro- 
gram. Assume that register 13 contains 
the address of the first word of the DSA. 


The first instruction of a subroutine 
written in Assembler language must save 
the general registers 14, 15, 0, ...., 12. 
The DOS/TOS macro instruction SAVE can be 
used for this purpose. These registers 
must be saved even if their contents are 
not destroyed during execution of the sub- 
routine. Otherwise, ON-conditions that 
may occur might not be handled correctly. 
The next steps to be taken are: 


1. Store the contents of register 13 in 
word 2 of the subroutine save area. 


2. Ensure that word 3 of the save area of 
the calling PL/I program is not des- 
troyed by the Assembler subroutine. 


3. Set register 13 to the address of the 
subroutine save area. 


Layout of the First 20 Words of the DSA of a Calling Program 


4. Ensure the addressability in case 
register 15 is destroyed during execu- 
tion of this module. 


Returning 


Before returning control from the subrou- 
tine to the calling program, the contents 
of all registers must be restored. This 

is done as follows: 


L 13, 4(13) RESTORES REG13 
LM 14,12,12(13) RESTORES REG14-12 
BR 14 


The last two instructions may be replaced 
by DOS/TOS macro RETURN (14,12) 


The usage of LABEL parameters for 
returning from subroutines written in 
Assembler language necessitates a library 
call instead of a RETURN macro instruc- 
tion. Therefore, the address of the LABEL 
parameter must be loaded into register 1. 
The routine IJKSZCP must be called next. 
The contents of register 13 are automatic- 
ally saved by this routine. Therefore, 
they must not have been changed 
previously. 
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The following example shows how a 
library call can be used to return from а 
subroutine written in Assembler language 
by means of LABEL parameters. 


L 1,8(3) 
* LOADS ADDRESS OF TABLE VARIABLE 
CALL IJKSZCP 


Note: The library subroutine IJKSZCN must 
be used to initialize tbe DSA if LABEL 
parameters are used. 


Correlation Between PL/I And 
Assembler Modules 


Modules written in tne PL/I Subset lan- 
guage may call modules written in Assembl- 
er language and vice versa. However, if 
the program is combined of both PL/I and 
Assembler modules, one PL/I module with 
the attribute MAIN is required for correct 
initialization of the PL/I modules. Note 
that this MAIN procedure must be the first 
module to be executed. 


риод Чинија рија наа радар əсе. (— ШШ —— шш шш = 


A module written in Assembler language is 
called according to the rules for calling 
external procedures either by means of a 
CALL statement or by means of a function 
reference. The Assembler module must 
Satisfy all linkage rules given in this 
section. If the Assembler module does not 
call any other module, it must provide a 
minimum save area of two full-words. The 
U-byte field INDIC pointed to by bytes 1 
to 3 of the first word must contain the 
following information: 


Byte 3 contains the standard prefix 
option switches, whereas byte 2 contains 
the actual prefix option switches. If 
INDIC is not initialized by the library 
subroutine IJKSZCN, the contents of byte 3 
must be moved into byte 2 by the prologue 
of the module. The contents of byte 2 may 
be changed during execution of the module. 


Bits 0 to 5 are used as switches with 
the following functions: 


О -ZERODIVIDE 

1 UNDERFLOW 

2 OVERFLOW 

3 FIXEDOVERFLOW 
4 CONVERSION 

5 SIZE 


If the respective bits are on (1), the 
corresponding ON-condition is enakled. If 
they are off (0), the ON-condition is 
disabled. 


If bit 7 is on, the PL/I interrupt- 
handling routine interprets a hardware 
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fixed-point or decimal overflow condition 
as a SIZE error. If bit 7 is off, the 
condition is interpreted as FIXEDOVERFLOW. 


Note: Word 2 of the save area and re 
er 13 must be correctly initialized p 
to the occurrence of any interrupt. 


gist- 
rior 
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Assembler modules that directly or 
indirectly call PL/I modules must provide 
a full DSA with a minimum of 20 full- 
words. This can be done by using the PL/I 
library subroutine IJKSZCN, which creates 
the DSA and provides correct handling of 
register 13. The subroutine sets the 
words 1, 2, 3, 19, and 20 of the DSA. 

Word 20 accommodates the contents of 
register 0 at the time when IJKSZCN was 
called. In internal PL/I procedures, this 
will be the address of the DSA of the 
statically embracing block. Word 3 con- 
tains the address of the storage location 
where IJKSZCN will construct the next DSA 
in case the present module calls another 


Calling IJKSZCN destroys register 5. 
Therefore, register 5 should not be 
initialized by an Assembler module before 
IJKSZCN is called.  IJKSZCN is called as 
shown below: 


LA 1,PBL 
L 15,-VCIJKSZCN) 
BALR 14,15 


PBL is an 8-byte area containing the fol- 
lowing information: 


DS OF 

PBL DC Х'03' 
DC AL3(INDIC) 
DC A(length) 


Note: 
bytes. 


Length is the length of the DSA in 


The calling sequence for IJKSZCN should 
be preceded only by the SAVE macro 
instruction and two LR instructions pro- 
viding for the addressability of the 


тал DÀ А <= ~ — 


5 = 
ша час itself ana tne argument list. 


Passing Arguments 

The argument addresses in the argument 
list point to the first byte of the data, 
array, Or structure to ke passed on. The 
address of a V-type constant is passed for 
an ENTRY argument. The word following the 
V-type constant contains a pointer to the 
DSA of the block statically embracing the 
passed procedure if the passed procedure 
is internal. 
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Figure 28. Format of Call to Entry Parameter 


To allow for addressing of AUTOMATIC 
variables contained within the embracing 
block of an entry parameter, a call to the 
entry parameter should have the format 
shown in Figure 28. 


If FILE arguments are used, the address 
in the argument list points to the file 
appendage. Іп addition to the information 
in byte 0, the first word of the file 
appendage contains the address of the DTF 
table for this file. 


File arguments should be used very 
carefully in Assembler subroutines. Issu- 
ing ап ІОС5 macro to a CCB which is part 
of a ОТЕ table used ру a PL/I program may 
destroy the synchronization between the 
PL/I program and logical IOCS. (Note that 
the CCB address must be inserted at object 
time when IOCS macros are used for file- 
name parameters.) However, a programmer . 
experienced in DOS/TOS IOCS may use file- 
name parameters in Assembler subroutines 
to improve the capability of his program. 
For example, he may: 


1. change DTF tables to allow handling of 
additional user labels or non-standard 
tape labels before opening a file. 


2. change ОТЕ tables to accomplish spe- 
cial stacker selection. PL/I programs 
use normal stackers for card input 
files and stacker 2 for punched-card 
output files. 


3. issue a CNTRL macro instruction for 
seeking on a REGIONAL file to allow 
overlapping of seek time. 


Figure 29 shows a PL/I procedure that 
calls a module written in Assembler lan- 
guage, which itself contains a function 
reference to another external PL/I 
procedure, 


Data of the scope EXTERNAL may be 
shared between PL/I and Assembler modules. 


Case 1. Data items within PL/I modules 
which are referred to by Assembler lan- 


guage modules: 


Use EXTRN statement in the Assembler 
modules. 


Case 2 Data items within Assembler 
modules which are referred to by PL/I 
modules: 


Each data item must be a separate CSECT; 
otherwise incorrect addresses will Бе. 
assigned when the programs are 
link-edited. 


If a data item is a structure, all its 
individual elements can be coded together 
as a series of DCs or as a DS in the 
Ass embler- language module under a single 
CSECT. Іп preparing such a structure, the 
PL/I structure mapping rules as described 
under Data Storage Mapping must, however, 
be observed. 


The CSECT statement must be used if the 
respective name is not declared to be 
EXTERNAL in any PL/I program within the 
same phase. In all other cases, the pro- 
grammer may use the instruction he consi- 
ders convenient. 


Values returned by routines written 
in Assembler language must have the format 
specified for PL/I.  Floating-point data 
must be normalized. 


Checkpoint And Restart 


A typical example for a procedure written 
in Assembler language is checkpointing and 
restarting. For convenience, both the 
checkpoint part and the restart part 
should be contained in the same routine. 


If checkpointing is desired, the 
restart address, the end address, and the 
tape file positioning information must be 
provided. «Some additional information is 
required if the checkpoint is to be writ- 
ten on disk.) The restart address is 
known if it is in the same module as the 
checkpoint routine. The end address can 
be taken from word 3 of the save area, 
Since this is the address of the next (not 
yet allocated) save area. Names of tape 
files can either be passed as parameters 
or addressed directly by using a V-type 
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constant. (See the discussion on file 
parameters in the section Passing Argu- 
ments The same applies to the usage of 
V-type constants.) 


After the job has been restarted with 
the RSTRT statement, the restart routine 
must issue an STXIT macro for Program 
Check Interruption. The two address 
operands to be issued with STXIT are the 
external names IJKSZCI and IJKZWSI for the 
routine address and the save area, respec- 





PL/I 
CALLER: PROCEDURE OPTIONS (MAIN); 
DECLARE C CHARACTER (25) STATIC; 


tively. Moreover, the program mask must 
be reset. - + 
Note: PL/I input files must not contain 


чул аа 5 
AM ~ 
interspersed checkpoint records. 


Figure 30 shows a coding example of a 
routine combining the checkpoint and the 
restart part. For detailed information— 
refer to the following SRL publications: 


CALL SUBASM (A,B,C) /* CALLS SUBROUTINE WRITTEN IN ASSEMBLER LANGUAGE */; 


END; 
/* 
! 7 мно -е — ee eee s оса ош cmm 
// EXEC ASSEMBLY 
TITLE ' SUBROUTINE CALLED BY PL/I AND CALLING PL/I’ 
SUBASM START 0 PARAMETERS ARE A, B, C 
USING .% 
ЗАУЕ (14,12) SAVE REGISTERS 
LR 9,15 ASSURE PROGRAM ADDRESSABILITY 
LR 3,1 ASSURE ADDRESSABILITY OF PARAMETERS 
ШТ 1,PBL CREATE OWN DSA 
· CALL IJKSZCN 
L 1,0(3) MAKE A ADDRESSABLE 
; LE 0,0(1) LOAD A 
L 1,40) MAKE В ADDRESSABLE 
AE 0,0(1) ADD 8 
` CALL LEVEL3, (X, Y, RETURN) CALL PL/I FUNCTION PROCEDURE 
L 1,8(3) MAKE C ADDRESSABLE 
! MYC 0/24, 1), RETURN Ст RETURN ИТ, 
ми! 24(1), X' 4B' 
L 13, 4(13) 
RETURN (14,12) RETURN TO CALLING PL/I PROCEDURE 
x DS F ARGUMENT X 
Y 05 СІЗ ARGUMENT Y 
DS OF 
PBL DC X'03' DATA TO CREATE DSA 
DC AL3(ONINDICT) POINTER TO ON-INDICATOR WORD 
DC 20A 20-WORD DSA 
ONINDICT DC 3x'0' 
DC B^11110000' SIZE AND CONVERSION DISABLED 
RETURN DS CL24 SPACE FOR RECEIVING STRING FROM 
* 5 


PROCEDURE (U,V) CHARACTER (24); 


PL/I FUNCTION LEVEL3 


DECLARE STR CHARACTER (21), V FIXED DECIMAL (5,2); 
RETURN (6, || STR) 


END; 


Figure 29. 


/* ONE BLANK AUTOMATICALLY 


ADDED AT THE END TO OBTAIN 
CORRECT LENGTH */; 





Example of Linkages between PL/I Procedure and Assembler Module 


For_DOS 

IBM System/360 Disk Operating System, Sys- 
tem Control and System Service Programs, 
Order No. GC24-5036 


IBM System/360 Disk Operating Systen, 
Supervisor and Input/Output Macros, Order 


For TOS 

IBM System/360 Tape Operating System, Sys- 
tem Control and System Service Programs, 
Order No. GC24-5034 


IBM System/360 Tape Operating System, 
Supervisor and Input/Output Macros, Order 


No. GC24-5 


CPRS 


* 
* 


CHPRES 


RESTART 


RETURN 


* 


* 


INDIC 
TPOINT 


FILETAB 


Figure 30. 


037 


TITLE 


START 
USING 
SAVE 
LR 


'No. GC24-5035 


"CHECKPOINT-RESTART ROUTINE’ 

CALLED BY A PL/I PROCEDURE. THE INFORMATION ON THE 
POSITIONING OF THE TWO FILES TAPEIN AND TAPEOUT 15 
TO BE CHECKPOINTED. 


12 

64,12) 

12,15 

T, PBL 
15,=V(IJKSZCN) 
14,15 
2,=V(TAPEIN) 
2,0(2) 

2, FILETAB+2 
2,=V (TAPEOUT) 
2,0(2) 

2, FILETAB46 
2,8(13) LOAD END ADDRESS 

3,0 SAVE PROGRAM MASK IN AUTOMATIC 
3,80(13) STORAGE 

SY S007, RESTART, (2), TPOINT CHECKPOINT ON 5Ү5007 
RETURN 


SET BASE REGISTER | 
CALL PL/I PROLOGUE ROUTINE 


PREPARE FILE TABLE 


RESTART PART, NOTICE THAT ALL GENERAL 
REGISTERS ARE AUTOMATICALLY RESTORED. 

0,=V(IJKSZCl) SET PROGR. CHECK INTERRUPTION EXIT. 

1,=V(IJKZWSI) 

PC,(0), (1) 

2,80(13) SET PROGRAM MASK. 

5 

13,4(13) 

(14,12) 

OF 

Х' 03" 

AL3(INDIC) 

22А 


RETURN TO PL/I CALLER 


ARGUMENT FOR IJKSZCN 


PL/I SAVE AREA DEFINITION + 1 WORD FOR 


SAVING PROGRAM MASK (MUST BE MULTIPLE 


OF EIGHT). 

ON INDICATORS 
POINTER TO FILETABLE 
PIOCS FILES NOT USED 


A(0) 
A(FILETAB) 
A(0) 

2,4 

H'2' 

2F 


FILE TABLE 





Coding Example of Combined Checkpoint and Restart Routine 


Linkage Conventions 
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General Programming Information 


This section describes some programming 
techniques to save storage, produce a 
faster object program, perform functions 
not easily achieved with more conventional 
PL/I EUR facilities, make a program 

~ th 


fit into the available storage, etc. 


STATEMENT FORMAT 

The first column of every source text card 
must be blank. Columns 73-80 are ignored; 
they may contain any information. 


PROGRAM SEGMENTATION 

Every program should be written so that it 
can be segmented if necessary. The case 
of storage overflow should be provided for 
SO that, if it does occur, it can be 
handied easiiy.  Breakpoints in the logic 
Of a program, i.e., points where a program 
phase can be terminated and a subsequent 
phase entered, should be numerous. 


Data common to successive programs can 
be kept through the proper use of the 
EXTERNAL attribute. However, not all data 
need be external. 


Programs that read data, compute, and 
write results lend themseives to segmenta- 
tion most readily. Wherever practical, 
entire programs should be written as 
sequences of calls for subroutine proce- 
dures because each call is a logical brea- 
kpoint. Thus, the entire storage can be 
loaded with as many subroutines as can be 
accommodated. The next phase then repeats 
the process of loading tne storage with 
the next group of subroutines, etc. 


PROGRAM EXPANSION 

In general, no more than 90 % of the 
Storage available for any program phase 
should be used during the first six months 
of its life because, at one time or anoth- 
er, every program tends to expand due to 


1. programming errors, 


2. the need to expand the original 
function, 


3. errors in the system program or in the 
associated subroutines, and/or 


4. ап increase of the data storage 
requirements. 
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If a program uses the entire storage 
and no space is left for eventualities, 


4- ha да А да А uL 
reasonable solutions become difficult. 


If, however, normal expansion was provided 
for, the overall job is much easier. 


CONVERSIONS 


If a numeric variable is to be used fre- 
quently in expressions, it is much more 
economical to convert the variable to 
coded form once and use the coded form in 
all expressions. This is easily done by 


manasa d-——— pp a а = == 


means of an assignment statement. 


pes the rales: for AT conver- 
sions, and the intermediate precisions 
should be considered when using such 
expressions. 


For example, in case 3 (IF X=U THEN...) 
of the following sample program the conv- 
ersion rules are applied to X, giving a 
short-precision floating-point number 
which is then expanded (padded) witn 
trailing zeros to long precision before 
the actual comparison operation. Thus 
expression 2 will be executed, not expres- 
sion 1. However, if X and U are assigned 
with a value which will be the same in 
both short and long precision (e.g. 0.5), 
tnen expression 1 will be executed. 


In evaluating the following program, 
refer to Section F: Data Conversion in 
IBM System/360, Disk and Tape Operating 
Systems, PL/I_ Subset Reference Manual, 
Order No. GC28-8202. 


Z: PROCEDURE OPTIONS(MAIN); 
DECLARE X DECIMAL FIXED(5,2); 
DECLARE T DECIMAL FIXED (15,2); 
DECLARE Ү FLOAT(6); 

DECLARE U FLOAT (16); 


Х-123.45; 

Y=123.45; 

Т-123.45; 

U=123.45; 

IF X=Y THEN expression 1; /* Yes жи 
ELSE expression 2; /% No */ 

IF X=T THEN expression 1; /* Yes */ 
ELSE expression 2; /* No */ 

IF X=U THEN expression 1; /* No жи 
ELSE expression 2; /* Yes */ 

IF Y-T THEN expression 1; /* No */ 
ELSE expression 2; /* Yes */ 

IF Y-U THEN expression 1; /* No */ 
ELSE expression 2; /* Yes */ 

IF T-U THEN expression 1; /* Yes */ 
ELSE expression 2; /* No */ 


END; 


For an example showing the conversion 
of characters into binary numbers, refer 
"Conversion of Numbers in Character Form 
Into Binary Numbers". 


USE OF UNSPEC 

The UNSPEC pseudo variable and the UNSPEC 
built-in function handle the internal 
representation of data. The internal 
representation of data is summarized in 
Figure 50 and described in detail in the 


— M ÓÀ — — ee Еа... ——Ó --...... 


The programmer must make sure that 
values assigned by the UNSPEC pseudo vari- 
able have the correct format. Otherwise, 
the results are unpredictable. Note that 
the internal representation of floating- 
point data is normalized. Consider the 
following example: 


DECLARE A FLOAT, B CHARACTER(1), C FIXED 
DECIMAL (5,3); i 

B= "8., 

X: PUT EDIT (UNSPEC(B)) (SKIP,B); 

Y: UNSPEC(A)-(31)'0*'B || '1'8; 

Z: UNSPEC(C)-(16)'O'B || '01100000'B; 


+ 


The result of statement X is 11111000. 
Statement Y yields unpredictable results 
since the value to be assigned is not nor- 
malized. Statement Z also yields unpre- 
dictable results since the last half-byte 
does not contain a valid sign for packed 
decimal data representation. 


For an example of the UNSPEC built-in 
function, see Appendix L. Programming 
Examples, "Conversion of Numbers in 


Character Form to Binary Numbers". 


COMPUTATIONS WITH OVERLAY 

Wnenever possible, input/output phases 
should be performed separately from compu- 
tational phases. Thus, the I/O subrou- 
tines including the E and/or F conversion 
subroutines are never in storage simul- 
taneously with tne other subroutines (ari- 
thmetic, base, and scale conversion, 
etc.). This can result in considerable 
Storage savings (see Figure 31). 





Phase 1: 
Opens files, 


Performs input, 
Closes files. 


Phase 3: 
Opens files, 


Performs output, | 
Closes files. 


Phase 2: 


Computation 


Figure 31. Example of Using Overlays tc 
Perform Computations and I/O 
Operations Separately 
BLOCKING 


It may happen that one large set of data 
is used in a program only at one specific 
point, that another large set of data is 
used at another point, etc. In this case, 
each set of data used at one point should 
appear in a separate block so that the 
data is AUTCMATIC by default (unless de- 
clared to be STATIC) and allocated only 
when the respective blcck is active. 
Thus, the same storage area can be used 
for all data sets to be used. 


SIMULATION CF P-FORMAT ITEMS 
The PICTURE-format items of OS PL/I are a 
more powerful tool for editing than the 
format items available in DOS/TOS PL/I. 
However, numeric fields in edit-directed 
I/O operations can easily be simulated by 
overlaying numeric fields with character 
strings using the DEFINED attribute. An 
example is shown below: 


DECLARE U PICTURE '$$,$$9.V99BCR', 
B CHARACTER (12) DEFINED U; 


y= езе А 
PUT SKIP EDIT ('Џ = ", В) (2 А); 


SIMULATION OF ARRAYS ОЕ STRUCTURES 


Since arrays of structures are not per- 
mitted in the PL/I Subset language, it is 
recommended to simulate arrays of struc- 
tures by using arrays in structures, i.e., 
by arrays that are not themselves struc- 
tures. Should this not be feasible, 
arrays of structures may be simulated by 
using based structures. This can be 
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accomplished by assigning to the pointer 
the value of an element of a character- 
string array. The programmer is respons- 
ible for satisfying all boundary 
requirements. 


The following example shows the handl- 


structures in OS PL/I versus DOS/ 


ing of st ures ir 
TOS PL/I: 


DECLARE 1 A, 2 В FLOAT, 2 C(10), 3D 
PICTURE "9999", 
3 E PICTURE "ХХ", 
3 F PICTURE "99У99"; 


ny т=4 me ann. 
іл; LTL LY аме 


A.D(I) =... s 


END; 


This could be written in DOS/TOS as 
follows: 


DECLARE PTR POINTER, 1 A, 2 B FLOAT, 2 C 
(10) CHARACTER(10), 1 X BASED 
(PTR), 2 D PICTURE *9999*, 2 E 
PICTURE "ХХ", 2 F PICTURE "9999"; 


DO I=1 to 10; 
PTR-ADDR(A.C(1)O; 
Х.Пг.... 

END; 


mJ eS «әш» "шш CE ES көсе «өлме SE EY ES ШУ SR шы 


For scalar variables or arrays, the 
DEFINED attribute is used when 


1. а variable is to have more than one 
name (correspondence defining), or 


2. two separate variables are to occupy 
the same storage area provided they 
are never required simultaneously 
(overlay defining). 


In either case, the actual storage 
requirement is that of the base identifier 
and not the sum of the storage require- 
ments of all variables. For restrictions 
on the use of the DEFINED attribute for 
scalar variables and arrays see the Subset 
language publication. 
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The use of the DEFINED attribute can 
result in considerable savings of storage. 
This is obvious for arrays, e.g., the 
statement 


DECLARE А (5,9,7), В (5,9,7) DEFINED А; 


merely requires the storage area for array 
A (315 data items). Without the DEFINED 
attribute, the storage requirements wouid 
be twice as much. But in spite of the 
more severe restictions on the use of the 
DEFINED attribute for structures, it can 
also be of considerable use in this case. 


The restrictions on the use of the DEFINED 
attribute for structures can be circum- 
vented by using based variables instead of 
the DEFINED attribute. For example, in 
the statement shown below structures U and 
I are based variables. They are never 
allocated any storage. Instead, the 
pointer variable P can be used to utilize 
the storage occupied by structure A 
whenever structures U and I are referred 
to (provided that structure A is not 
required at the same time). 


DECLARE P PCINTER, 


4 
i 


T £N IT 


ALIGNED, 

B BIT(7), 

C FIXED DECIMAL(13,2), 
D CHARACTER (21), 
ALIGNED BASED (P), 

V BINARY, 

W, 
X BIT(19), 
BASED (P), 
J, 

K, 

L; 
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The statement 
P = ADDR (A); 


would cause any subsequent reference to 
either U or I or any compcnent of U or I 
to point to the storage area occupied by 
A. This simulates the use of the DEFINED 
attribute with all of its restrictions 
removed except that the based structures 
must be mapped in the same or less storage 
than the map of the overlaid structure. 
This process may be extended even further 
SO that a based variable structure occu- 
pies the storage area of any one of many 
structures. This is demonstrated below: 


DECLARE (V1,V2) POINTER, 
Re 2 By Среза 
U ALIGNED, 2 F, 3 Q BIT (9),..., 
В, 2 2, 2 М, З S CHARACTER(2),.., 
P1 BASED (V1), 2 L, 2 X,..., 
P2 ALIGNED BASED (V2), 

2 D BIT(9),.; 


PRE PP 


V1=ADDR(A); 


. using P1 here points to A 


V1-ADDR(U); 


. using P1 here points to U 


V2-ADDR(R); 


. using P2 here points to R 


V1-ADDR(R); 
. using P1 here points to R 
etc. 


Of course, the storage requirement of 
Structure P1 must not exceed that of the 
smallest of either A, U, or R. Since the 
Structure P2 does not point to A or U in 
this procedure, the only prerequisite is 
that its storage requirement must not 
exceed that of R. 


Note on Compatibilit The structure- 
mapping technique for OS PL/I is identical 
to that for DOS/TOS PL/I in every respect 
but one. The exception is that DOS/TOS 
PL/I causes all structures to begin at 
double-word boundaries. This is accomp- 
lished by padding to the left of the first 
addressable element until byte zero is 
reached. (See the section Structure Map- 


OS PL/I begins structures at the first 
addressable element. This difference is 
of no significance in PL/I programming 
unless the above-described technique is 
employed. When this technique is used, 
compatibility is guaranteed if at least 
one element of the non-based structure has 
a stringency level that is as high as that 
of the element (or elements) of the high- 
est stringency level of the based 
structure. 


For the D Compiler the pointer asso- 
ciated with a based structure must be 
assigned an address value which insures 
that the first element of the structure 
has the same distance to a double-word 
boundary as it would have if the structure 
was not based. 


Note: The use of based structures to 
avoid the use of the DEFINED attribute is 
dependent on structure mapping which, in 
turn, is implementation-defined. 


REDEFINITION OF ATTRIBUTES 

The two preceding sections showed that a 
number of structures can be made to occupy 
the same storage area. Similarly, a 
Single character-class variable may be 
conceived of in many different ways.  Con- 
sider the declaration shown below. 


DECLARE A CHARACTER (80), 
1 B DEFINED A, 
C CHARACTER (40), 
D CHARACTER (30), 
E CHARACTER (10), 
DEFINED A, 
G PICTURE '(8)9', 
Н PICTURE “9", 
I CHARACTER (61), 
J PICTURE '(5)9V(5)9', 
DEFINED A, | 
L (10) PICTURE '$§(4)9V(2)9'; 


NO AN tO fO DY bd BND 5 


A represents a string of 80 characters 
whereas B, F, and K represent three dis- 
tinct structures. However, these three 
distinct structures refer to the same 
storage area as A. This technique is 
especially useful in programs with many 
different structures to be read. For 
instance, the program may read a character 
string and, depending on its first 
character, treat it in any one of many 
different ways without requiring space for 
each possible structure. 


USE OF THE 4 8-CHARACTER SET 


If the 48-character set is used, the word 
PT, in addition to those listed in the 
Subset language publication, is a reserved 
keyword. Programs written in the 60- 
character set can be read if 48C is speci- 
fied in the OPTION statement (but not vice 
versa). 


SIZE OVERFLOW 


If a size overflow occurs during F-format 
output, the output field will contain 
asterisks, even if SIZE is disabled. 


USE OF THE DISPLAY STATEMENT WITH THE 


—A—À——À —ÓÀ—À сел» ке —À —À —À дат им Á— M —À —À —À —À— M— — 


Using the DISPLAY statement with the REPLY 
option is possible only if a 1052 Printer- 
Keyboard is available. 


PRECISION OF DECIMAL DATA 
The use of an odd precision for decimal 
data will keep the generated code at a 


minimum and thus improve the program 
performance. 
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CHANGING THE TAB CONTROL TABLE 
List-directed output to PRINT files auto- 
matically aligns data on preset tab posi- 
tions. For tne D-ievei compiler, these 
tab positions are 1, 25, 49, 73, 97, and 
121. 


rn 


The tab positions are determined from 
the control table IJKTLTB which is catalo- 
gued under this name in the reiocatabie 
library. To obtain different tab posi- 
tions, the programmer only has to change 
this table by specifying the foliowing 


macro instruction: 


IJKZL  (tab,[tab,...,]FF) 
In this macro instruction, 'tab' is a 
decimal constant indicating the desired 
tab postion, and *FF' indicates the end of 


the table. 
ascending sequence, and their values must 
range between 1 and 144. The length of 
the tab list specified in the IJKZL macro 
instruction must not exceed 127 charac- 
ters, including opening and closing paren- 
theses and commas. 


Following is an example of the IJKZL 
macro instruction and the control state- 
ments required to change the tab settings. 


// JOB IJKTLTB 
// OPTION DECK 


// EXEC ASSEMBLY 
IJKZL (1,25,50,75,100,FF) 
END 

РЕЈ 


ж THE RESULTING OBJECT DECK IS INPUT 
* FOR THE FOLLOWING EXEC MAINT PROGRAM 
// EXEC MAINT 


(Object deck) 


/* 
76 


If the specified tab positions do not fall 
between the values 1 and 144, or if they 
are not in ascending sequence, one of the 
following messages is issued: 


PARAMETER GT 144 


PARAMETER NOT IN ASCENDING ORDER 


IMPROVEMENT OF DO-LOOPS 


—— M M —À == ee ES Ne дог 


The execution time cf a DO-loop can be 
reduced if a fixed binary variable is used 
aS control variable in the DO statement. 


For example, if in the statemen 


5u 


position, 


DO var = expl TO exp2 [BY exp3] 
[WHILE (exp4)]; 
"уау" is a fixed binary value, all con- 


stants used as ехр1, exp2, and exp3 will 
be converted to fixed binary during compi- 
lation, in order to avoid conversions dur- 
ing execution. 


ROUNDING CN OUTPUT WITH E AND F FORMAT 


== 


On output, data edited by the E- or Е- 
format are rounded at the last numeric 
and not truncated. 


HANDLING BLANK NUMERIC FIELDS 


When using a PICTURE specification with 

'9's for numeric fields and the field is 
olank, a program check (data exception) 

occurs. 


This is a particular problem for card 
input where fields are often left blank 
rather than filled with zeroes. 


The problem can be avoided by declaring 
the field with PICTURE using "7" rather 
than "9" or with PICTURE using "9" plus 
one of the overpunch picture characters T, 
i, or R. 


Assume card columns 1-10 are numerical 
and may or may not be punched. 


DECLARE COL_1 PICTURE 
DECLARE COL_1 PICTURE 
DECLARE COL_1 PICTURE 


* (10)9"; 
"(10)2“: 
"(9)9(4)1"; 


The first DECLARE statement causes а 
data exception if the field is blank. No 
data exception occurs for blanks in 
columns 1 through 10 if the field is de- 
clared as shown by the second and third 
DECLARE statements. 


The programmer should, however, be 
aware that the exclusive use of '9's іп а 
PICTURE specification results in more 
efficient code. 


USE OF LIST-DIRECTED AND FDIT-DIRECTED 
DATA TRANSMISSION 


When the list-directed and edit-directed 
transmission modes are used for the same 
file, the user is responsible for the 
correct positioning of the file. 


USE OF PICTURES WITH STREAM” ORIENTED DATA 
TRANSMISSION 


1. Character-string pictures: 
The D Compiler handles them in the 
same way as normal character-string 
variables. 


All kinds of arithmetic pictures are 
possible in the data lists of GET and 
PUT statements. 


a.  Edit-directed transmission: 
Only such items in the data stream 
which can be described by the E or 
F format can be transferred from 
(PUT) or into (GET) arithmetic 
pictures. If, on output, the pro- 
grammer wants tne character repre- 
sentation of the picture, he 
should use the CHAR built-in func- 
tion as pseudo-variable with the 
picture as argument in the data 
list. 


b. List-directed transmission: 
On input, only [*|-] arithmetic 
constants can be transferred into 
arithmetic pictures. On output, 
the character representation will 
be transferred into the data 
stream. 


PICTURE SPECIFICATIONS 
Storage can be saved by proper declaration 
of fixed numeric PICTURE fields. 


1. PICTURE specifications without drift- 
ing characters: make the first digit 
position 'Z' or '*' and avoid writing 
the first '9' in the field immediately 
following an insertion character. 


'29,99.V99*' is better than '99,99.v99' 
"5229999" is better than "5999999" 
"+77,7999' is better than '*22,9999' 


2. Specifying "V." rather than ".V" 
results in better code in tne follow- 
ing cases: 


(a) If the first fractional digit 
position is the first '9' in the 
field, then 
*"Z42,4222V.99' is better than 
'Z2,222.V99'. 


(b) If a drifting character or zero- 
suppression is specified past the 
decimal point, then 
'SSSSSV.$$' is better than 
“55555.У55" 

"жжжжжу. жже is better than 
*gekkekek VEE 


3. Give the variable in the right-hand 
Side of an assignment statement the 
attribute DECIMAL FIXED with the same 
Scale and precision as the PICTURE. 
If there is an expression on the 
right-hand side try to produce the 
desired scale and precision. 


ц.  Zero-suppression with "*" costs more 
storage (code) than zero-suppression 
with "Z" if 


"+" or "-" is used (static or drift- 
ing) or 


position. 


5. ТЕ the PICTURE does not contain at 
least one "9", "T", "I" or "R", but 
does contain a "V", additional code is 
required for clearing the field in 
case of a zero value. 


ENDPAGE WITH MULTIPLE-LINE PUT 

When using a PUT statement producing mul- 

tiple lines, the ENDPAGE condition should 

not be enabled because of possible loss of 
data: 


ON ENDPAGE(F) GOTO X; 
PUT FILE(F) EDIT(data-list) (format-list); 
X: new header; 


In this example the ENDPAGE condition 
may be raised during execution of the data 
list (assuming multiple-line output); but 
no return from X is possible, so that the 
rest of the data list will be ignored. 
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Program-Checkout Facilities 


Certain language features are provided in 
PL/I to assist the programmer in ерси 


his program 


Meu. 


described below. 


Во аа ови ч» 


For а detailed discussion of how to 
debug a PL/I program, refer to the section 
Debugging PL/I Programs in the SRL publi- 
cation IBM System/360 Disk Operating Sys- 
tem, System Programmer's Guide, GC24-5073. 


Exhibit Changed 


Tm n ле та ала —— 
The EXHIBIT CHANGED feature uses the 


library routine IJKEXHC which requires 
approximately 1200 bytes of main storage. 


In addition, each variable appearing in 
a CALL IJKEXHC statement requires about 12 
bytes of storage plus a field containing 
the variable name plus a field containing 
the value of the variable in static 
storage. 


Function: 


The first execution of the CALL IJKEXHC 
Statement causes the printing of the names 
listed in the statement, and their values 
in hexadecimal notation. 


Generai Format: 


CALL IJKEXHC (name , name ....); 

The argument 'name' can be an unsub- 
Scripted, unqualified name representing an 
element, an array, Or a structure which 
are not contained in an array or struc- 
ture, or it can be a string or arithmetic 
constant. However, it cannot be a label 
constant, an entry name, or a file name. 


General Rules: 


1. Names with the attribute AUTOMATIC are 
printed each time the CALL IJKEXHC 
statement is first executed after a 
new block activation. Names with the 
attribute STATIC are printed only the 
first time the CALL IJKEXHC is 
executed if the activated block is 
internal. They are printed each time 
the CALL IJKEXHC statement is executed 
if the activated block is external. 


2. On subsequent passes of the CALL 
IJKEXHC statement, the names and 
values are printed only if the value 
has changed since the time the state- 
ment was last executed. 
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3. If there are several CALL IJKEXHC sta- 
tements in one program, they are inde- 


manan Ала. Г--лел An nk AL Aw 
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4. Тһе maximum number of arguments for 
опе CALL IJKEXHC statement is 12. If 
an argument has the BASED or DEFINED 
attribute, the related pointer or base 
variable is counted as an argument, 
regardless of whether it has been spe- 
cified in the argument list or not. 


5. Up to 30 names can be checked by CALL 
ІЈКЕХНС Statements within опе ріоск, 
if 10K bytes are available to the com- 
piler. For each additional 4K, up to 
46K, 30 additional names can be 


checked. 


6. The values of element variables having 
the attributes BINARY FIXED, BINARY 
FLOAT, DECIMAL FIXED, DECIMAL FLOAT, 
CHARACTER, BIT, or PICTURE are also 
printed in their external form. 


Tracing 


The TRACING feature uses the library rou- 
tine IJKTRON which requires 1258 bytes of 
Main storage. 

in addition, about 34 bytes of storage 
are required for each CALL IJKTRON state- 
ment and about 12 bytes for each CALL IJK- 
TROF statement. 


Function: 


The two statements, CALL IJKTRON and CALL 
IJKTROF, function like a switch.  IJKTRON 
switches tracing on, while IJKTROF turns 
it off. 


If tracing is enabled for a block, the 
following information is printed on 
SYSLST: 


1. On entry, the external name of the 
block, or, if the block has no label, 
the internal name of the block. 


2. On leaving a block via an END or 
RETURN statement, a message is given 
to indicate the exit. If the SIMT 
option is active, the statement number 
of the END or RETURN statement is 
printed as well as the number of the 
statement to which the program 
returns. 

Note: If for 'CALL entry name' infor- 
mation should be printed, tracing must 


be enabled for the block which con- 4) А11: CALL В1; 


tains the entry name. 5) С-3; 
3. Бог each executed GOTO statement " 
a. the external name (up to eight 6) GOTO A2; 
characters) and value of the label . 
variable or constant if the GOTO Е 
Statement is not in an on-unit, or 7) A2: BEGIN; 
b. the ON-condition and the value of . 
the labei variable or constant if 5 
the GOTO statement is in an 8) CALL IJKTROF; 
on-unit. - 
If the STMT option is active, the sta- 9) GOTO A21; 
tement number of the GOTO statement ж 
and the statement number of the target А 
statement are also displayed. 10) A21: CALL IJKTRON; 
General Format: А 
CALL IJKTRON; 11) END A2; 
CALL IJKTROF; Я 
General Rules; 12) END Al; 
13) B1:  PRCCEDURE; 
1. Tracing can be explicitly enabled in a қ 
block by а CALL IJKTRON statement. . 
14) CALL IJKTROF; 
2. A CALL IJKTROF statement explicitly У 
disables tracing in a block. У 
1:5) RETURN; 


3. If tracing is neither explicitly = 
enabled nor disabled in а block, the 16) END Bi; 
tracing status of the dynamically con- 
taining block is applied. 
This example causes the following (the 
Statement numbers in the above example are 
4. The dynamically containing block of referenced in the left-hand margin below): 
the main procedure has tracing 
disabled. 
1) when the main procedure is invoked, 
no tracing status is specified and, 


5. At least one of the two statements has therefore, tracing for this block 
to be specified if tracing is to and, per definition, for the dynam- 
appear in an external procedure. ically containing block is 

| disabled. 

6. When calling an external procedure 
(provided tracing is enabled at the 2) Tracing is explicitly enabled in 
time of the call), the called phase block А1. 
must have a call for either IJKTRON or 
IJKTROF. If this condition is not 3) The external name and value of 
satisfied, the results are unpredict- label А11 are printed. 


able in the event of an interrupt. 
4,13) No tracing status is specified for 
this block; therefore, the 


Example: (enabled) status of the containing 
block А1 is adopted and the name of 

1) Al: PROCEDURE OPTIONS (MAIN); the procedure B1 is printed. 
5 14,15) Tracing is explicitly disabled for 
А this block, and no message is 

2) CALL IJKTRON; printed when control returns to 
. statement 5. 

3) GOTO А11; 
А 6) The external name and value of the 
. label А2 аге printed since tracing 
is still enabled in А1. 
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7) With the activation of block A2 
tracing is neither enabled nor dis- 
abled, therefore the (enabled) sta- 
tus of block А1 is adopted and the 
externai name of ріоск A2 15 
printed. 


8,9) Tracing is disabled for block A2 
and no message is printed. 


10,11) Tracing is again enabied and the 
pass of the END statement is indi- 
cated on SYSLST. 


12) Since tracing in the main routine 
is still enabled, the pass of this 
END statement is also indicated on 
SYSLST. 


The DYNDIIM P Raut ne 


. 
а 
=. — = аз me Ww а S ESE 


The statement 
CALL DYNDUMP (argument-list); 


may be used to have the internal represen- 
tation of the items in the argument list 
displayed in hexadecimal notation. Тһе 
argument list may contain up to 12 items. 
Each argument must be either a scalar 
expression or a variable name. 


The DYNDUMP routine (56 bytes in 
length) uses the PL/I Control routine and 
the SYSPRINT file with the associated 
module. No additional 1/0 subroutines are 
required. Thus, the DYNDUMP routine pro- 
vides an economical way of displaying 
intermediate results during checkout of 
PL/I programs with a minimum of library 
and I/O module overhead. 


The following example shows the use of 
the DYNDUMP routine. 


DECLARE A FIXED(5,2), 


В(10), C ВІТ(1); 


оо ео + 


CALL DYNDUMP (А,В,С); 


Three items are displayed: A as 3 
bytes (6 hexadecimal digits), B as 40 
bytes (80 hexadecimal digits), and С as 


one byte (2 hexadecimal digits). 


Note: The current value of C is indicated 
by the first bit. If the variable length 

is an exact multiple of 48 bytes, the end 

address+t will be printed on the next line 
in order to delimit the variables for ease 
of reading. 


Locating Execution-Time Errors 
If a PL/I object program is terminated by 


the PL/I Control routine and the DUMP 
option is active, the problem program area 
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is printed (dumped) on the device assigned 
to SYSLST. The following information is 
intended to assist the programmer in ana- 
lyzing a program dump and to locate the 
error that caused the termination of this 
program. 


~ cis rante tha 
nsw мер а There is по Guar “uec >С t it n 


11 ai 
storage organization will 2. Бе а5 
described below. Severe programming 
errors, е.4., 111еда1 use of based 
variables, the UNSPEC pseudo variable, or 
use ОБ user-written Assembler subroutines 
may yield unpredictable results. 


If the error was caused by an I/O 
operation, look up the Linkage Editor 
storage map to find the address of the DTF 
table for the respecti . Тһе first 
word of the DTF tabie ains the address 
of the corresponding CCB. For details on 
the CCB refer to the SRL publications 
describing the DOS/TOS Supervisor and І/О 
macro instructions. 


ve 
con 


Data declared with the attribute 
EXTERNAL can be found using the addresses 
given in the Linkage Editor storage map. 


To determine the absolute address of 
Static internal data refer to the offset 
table 2. (see the section Offset 


эче А с а «оле ene se ee Шш = 


To locate the storage allocated to an 
automatic variable, the offset of the 
variable within the DSA (Dynamic Storage 
Area) is determined from the offset tabie, 
and this offset is added to the DSA 
address of the block to which the variakle 
is internal. The address of the DSA is 
automatically loaded into register 13 at 
prologue time. Word 20 of the DSA con- 
tains the DSA address of the statically 
embracing block. 


The load point of the main DSA is the 
next double-word boundary after the high- 
est high-core address of all external 
blocks linked in the program. 


More than one DSA may be allocated, 
i.e., if more than one block is active. 
TO find the DSA of the block where the 
error is detected, check the byte pointed 
to by register 13. If this byte contains 
either X'h1' or X'h3' (h may be any hexa- 
decimal digit), register 13 points to the 
relevant DSA. In this case, the error 
message was most probably caused by a Pro- 
gram Check interrupt. 


The instruction that caused the inter- 
rupt can be found by means of the diag- 
nostic message. The old PSW and the regi- 
Sters can be found at the location with 
the external label IJKZWSI. 


If the byte contains X'05', register 13 
points to a LSSA (Library Standard Save 
Area), the second word of which contains 
the chain-back word. If this again points 
tc a LSSA, repeat the cnain-back process 
until the chain-back word points to a DSA. 
This DSA then belongs to the block where 
the error was detected. 


To identify the block, go to the chain- 
back address of the relevant DSA. If this 
points to another DSA, word 5 of the DSA 
contains the absolute address of the 
block. The block can then be identified 
using the object code listing and the Lin- 
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Figure 32. DSA Chaining 





5081. .PROCEDURE, . 


USING *,15 










Entry Register 15 


Variables 


kage Editor storage map. If the chain- 
back word does not point to a DSA, the 
relevant DSA is the DSA of the MAIN proce- 
dure ( see Figure 32). 


The chain of DSAs resembles the current 
environment at the point of execution 
where the error was detected. Each DSA in 
the chain has its corresponding currently 
active block. From where and at which 
location a specific block is activated can 
be determined by means of the DSA of the 
calling block. For detailed information 
on the first 20 words of the DSA refer to 
the section Linkage Conventions. 
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USING *,15 









































































ps STM 14,12, 12, (13) т STM 14,12,12(13) 
L 15,2 V (SUB1) - 
BALR 14,15 | 
| PROLOGUE | PROLOGUE 
| | 
| | 
| CALL LAST | 
i L 15, 2 V(LAST) | RETURN 
13,4(13) | BALR 14,15 L 13,4(13) 
LM 14,12, 12(13) e | LM 14, 12, 12(13) 
BR 14 to STOP Routine || | BR 14 
| | | 
ЈЕ: | 
| 13,4, (13) i 
| 
| | 14,12,12(13) | 
| 
| | 1 
| | Static Storage | Static Storage 
| | | 
| | | 4 
1 | | | | 
| | pod | 
|. Б | 
r - +a Ге 
AL3(Block Description) J | | | i AL3(Block Description) Це | | | 4 
ЈЕ | "| | 
i BN i | i 
Chain Back L+ ++ Chain Back Lay Chain Back 
A(DUMDSA) NN . A A(Calling DSA) | А(Са па DSA) 
| 
Chain Forward | 5 | Chain Forward ! | Chain Forward 
A(Next Available Core) TT Wl A(Next Available Core) Lm | A(Next Available Core) 
| | | 
Return Register 14 | L Retum Register 14 | Return Register 14 
| 
zay E 
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Data Storage Requirements 


The storage requirements for data depend 
on the following two factors: 


1. The storage required for the data 
itseif. 


2. The storage required for the data 
descriptor. (The data descriptor is 
required whenever the compile-time 
data description is to be used in the 
object program.) 


Data Descriptors 


мо до mmsz 


А data descrip Scribe more 


+ 

escript 
one data item. 
is required for a group of data items that 
have identical (either explicitly or 
implicitly declared) attributes, e.g., for 
individual variables of identical attri- 
butes or for array elements. Thus, the 
statement 


; de than 


DECLARE (A, 
(5,2), 


B, C(21), D) FIXED DECIMAL 
(E, F, G) PICTURE '599.99'; 


requires only two descriptors: one 
describing A, B, the 21 C's, and D, and 
one describing E, F, and G. Constants 
(except those used in output lists), label 
variables, label constants, or pointer 
variables do not require a descriptor. 


A data descriptor and, therefore, 
storage in the object program is required 
Only if the pertinent data item 15 used in 
a conversion or I/O library subroutine. 


[rcs peer ae aa a ae Fan ee 1 
| Fixed decimal | | | 
[Float decimal | | | 
{Fixed binary |Coded | | 
{Float binary | | | 
¡Sterling | | | 
| constants | | 
-------------- +--------------- {Arithmetic | 
| Fixed decimal| Numeric | 
{Float decimal|  (picture- | | 
Íi Sterling | specified) | | 
------------- %---------------1-----------1 
| Character | | | 

{Bit | String | | 
| Picture- | | | 
| specified | | | 
| character | | 
------------- ----------------1Моп- | 
| Label {Label larithmetic | 
p------------- 4--------------- 1 | 
| Pointer | Pointer | | 
Bet а ioe Чы аса ады one ЕН Шаа лы ы ы 1 
Figure 33. Types of Data Items 
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Data Items 


S Of data iters 
that require storage. n the following 
text, the storage requirements for each of 
these items are specified and illustrated 
by means of examples. The storage 
requirements given in these examples per- 
tain to the data only. Unless otherwise 
Stated, references to coded arithmetic and 
String data apply to both variables and 
constants.  Cther data types will have 
constants and variables explicitly dif- 
ferentiated in regard to storage 


requirements. 


ы t 


CODED ARITHMETIC DATA 
Binary Fixed 


Default precision: 15 bits 
Maximum precision: 31 bits 
Storage requirements: 


1. Descriptor 


3 bytes (if required) 


2. Data 
4 bytes internal fixed-point regard- 
less of declared or default precision. 
Scale factor must not be specified. 
Figure 34 shows the storage require- 
ments for the binary fixed data declared 
in the following sample statement: 


DECLARE 1(8,5), A FIXED BINARY (7), 


J STATIC, Z(3) FIXED BINARY(27); 
So Ирина новце queer oe ај qoem 1 
| DATA| DECLARED | DEFAULT | | 
[ITEM] ATTRIBUTES | ATTRIBUTES  ВУТЕ5| 
І---І--------------- 4-------------- ----1 
| 1 [Dimension (8,5) |ҒІХЕр BINARY | 160 | 
| | |Precision (15) | | 
}~---}-~--~---------- }-------------- +--——-! 
| A [FIXED BINARY | Ncne | 4 | 
[ {Precision (7) | | | 
І----і---------------І-------------- т-----1 
| J |5ТАТІС |FIXED BINARY | | 
| | |Precision (45) | | 
}----+-------------- +4-~------------ %----1 
| 2 |Dimension (3) |Мопе | 12 | 
| |FIXED BINARY | | | 
| |Precision (27) | i | 
ҒҺ----і--------------- Дорис тыйын ышы шалады ни 1 
| TOTAL 180 | 
———— ——Á— MÀ PC 1 


Figure 34. Example of Binary Fixed Data 


Decimal Fixed 

Default precision: (5,0) 
Maximum precision: (15,0) 
Storage requirements: 


1. Descriptor 
3 bytes (if required) 

2. Data 
Packed decimal form -- 
4 bits = 1/2 byte for each digit. The 
sign is always stored and requires 1/2 
byte. The total storage required must 
be expressible in byte form, i.e., 
*5.2 requires 2 bytes (1/2 byte for 
the sign, 1 byte for the two digits, 
1/2 byte padding). 
Scale factor range: 
present). 


0 to 15 (if 


Figure 35 shows the storage require- 
ments for the decimai fixed data declared 
in the following sample statement: 


DECLARE A FIXED, B(5,2,3) FIXED, I FIXED 
STATIC, Q FIXED(14,2); 


КЕБЕДІ Calapan iia eae cate аи {eS вазе пр 1 
|DATA| DECLARED | DEFAULT | 
|ITEM| ATTRIBUTES | ATTRIBUTES | BYTES] 
}----4---------------}--------------}----- 
| А [FIXED į DECIMAL 

| | | Precision(5, 0) | 3 | 
}----+---------------}--------------}----- 
| B {Dimension | DECIMAL | 
| | (5,2,3) {Precision(5,0)} 90 | 
| | FIXED | | | 
-----%---------------4--------------і-----1 
| I [FIXED STATIC [DECIMAL 

| | {Precision(5,0)| Зз | 
}----+--------------- }-------------- $~---- 
| О |FIXED | DECIMAL | 8 | 
| |Precision(14, 2) | | | 
и ан ныш € Ó—Ó———— H—M—Á 
| TOTAL 104 | 
cr Mc ee ee ee eee te ee a ЕЕ. 
Figure 35. Example of Decimal Fixed Data 


Default precision: 21 bits 
Maximum precision: 53 bits 
Storage requirements: 


1. Descriptor 
2 bytes (if required) 
2. Data 
Hexadecimal floating-point form (see 
the SRL publication IBM System/360, 
A22-6821). М 
а. Short floating-point form (4 
bytes) used for a precision of 
less than 22 bits. 
b. Long floating-point form (8 bytes) 
used for a precision of greater 


than 21 bits. 


Figure 36 shows the stcrage require- 
ments for the binary float data declared 
in the following sample statement: 


DECLARE A BINARY, В ВІМАКҮ(29), C(2,5) 
BINARY(16), D FLOAT BINARY(50); 


aa ee eee и идол авенија“ саладан 
| DATA DECLARED | DEFAULT | | 
|ITEM| ATTRIBUTES | ATTRIBUTES  |BYTES| 
----і--------------- і--------------і-----1 
| А [BINARY | FLOAT | 4 | 
| | |Precision (21) | | 
----І---------------1-------------- 4----- 
| B {BINARY | FLOAT | 8| 
| {Precision (29) | | | 
t----}--------------- 1-------------- ---1 
| С |Dimension (2,5) | FLOAT | 40 | 
| | BINARY | | | 
| {Precision (16) | | | 
}----}--------------- }-------------- %----1 
| D [BINARY FLOAT [None | 8| 
| |Precision (50) | | [ 
Һ----і--------------- Шарлы И ЗИ Ме 4 
| TOTAL 60 | 
Boc ht he ea et 1 


Figure 36. Example of Binary Float Data 


Decimal Float 


Default precision: 6 decimal digits 
Maximum precision: 16 decimal digits 
Storage requirements: 


1. Descriptor 
2 bytes (if required) 
2. Data 
а. Short form (4 bytes) used for less 
than 7 decimal digits. 
b. Long form (8 bytes) used for more 


than 6 decimal digits. 


Figure 37 shows the storage require- 
ments for the decimal float data declared 
in the following sample statement: 


DECLARE A(5,3), B FLOAT(8), 
C DECIMAL(14), D; 


Г----Те---тах- њу низини atari qeu 1 
[DATA| DECLARED | | DEFAULT | | 
|ТТЕМ| ATTRIBUTES | ATTRIBUTES |ВҮТЕ5| 
р----і--------------- 4-------------- %----- і 
| А |Dimension (5,3) | БЕСТМАГ, FLOAT | 60 | 
| | {Precision (6) | | 
}----+--------------- 4-------------- %----1 
|В |FLOAT | DECIMAL | 81 
| |Precision (8) | | | 
}----}--------------- }-------------- %----1 
| С |DECIMAL | FLOAT | 8| 
| |Precision (14) | | | 
}----}--------------- 1-------------- %----1 
| D [None {DECIMAL FLOAT | | 
{ | |Precision (6) | | 
[----+--------------- a ilc lesu зды. Tossa 4 
| TOTAL 80 | 
СЕРКЕ КЕК це ени РЕКИ ИНАТ гы 2 кыыз шулы Етене е US 1 
Figure 37. Example of Decimal Float Data 
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NUMERIC (PICTURE-SPECIFIED) DATA 2. Data 
1 byte per character 
Default precision: not applicable 


Maximum length: after resolution of all Figure 39 shows the storage require- 
replications, the picture-specified rium- ments for the character-string data de- 
eric field must not be greater than 32 clared in the following sample statement: 
characters. The number of possible 
picture-specified digit positions DECLARE A(5) CHARACTER(20), B CHARACTER 
depends on whether the number is numeric (111); | 
fixed (15 digits) or numeric float (16 
digits). с----------- тТ---------------------ұ-------4 

Storage requirements: | DATA ITEM | DECLARED ATIRIBUTES | BYTES | 

І-----------і--------------------- і------- 1 

1. Descriptor | A | Dimension (5) | 100 | 

а.  Fixed-point data -- one byte for | | CHARACTER (20) | | 
each picture character plus 8 to ------------ +--------------------- +------- 1 
20 bytes, with an average of 12 | B | CHARACTER (111) | 111 | 
additional bytes (if required). Б---------- 1--------------------- 1------- 4 
b. Floating-point data -- one byte | TOTAL 211 | 
for each picture character pius 20 .----------------------------------------- J 
to 44 bytes, with an average of 24 
additional bytes (if required). Figure 39. Example of Character-String 
c. Numeric sterling data -- one byte Data 
for each picture character plus 4 
bytes (if required). Bit-String Data 
2. Data Default precision: not applicable 
One byte for eacn picture character Minimum length: 1 bit 
except for M, V, K, and G. Maximum length: 64 bits 
Storage requirements: 
Figure 38 shows the storage require- 
ments for the numeric data declared in the 1. Descriptor 
following sample statement: 2 bytes (if required) 
2. Data 

DECLARE A PICTURE "599.99", В PICTURE 1 byte for each group of 8 bits or 
*(8)9V(4)9", C PICTURE '.99K499', D part thereof. Packed format is not 
PICTURE 'Z299B9(2)B.9,99'; permitted. 

с----т------------——- т-------------- т----- 1 Figure 40 shows the storage require- 

| BEFORE | AFTER | | ments for the bit-string data declared in 
| DATA| REPLICATION | REPLICATION | the following sample statement: 

|ITEM| RESOLUTION | RESOLUTION |BYTES| 

----4--------------- T--------------4-----4 DECLARE A ВІТ(12), B (11,7,2) BIT (1); 

| А 1599.99 | Same | 6 | 

}----4--------------- 4-------------- 4----- -----------т--------------:------ т------- 

| в [(8)9v(u)9 |9999999979999 | 12 | | DATA ITEM | DECLARED ATTRIBUTES | BYTES | 

}----4+-~------------- %-------------- i----- 1-0 p-——-—---- 4--------------------- +------- 

|С 1.99К%99 |Same | 6 | | A | BIT (12) | 2 | 

}----}--------------- 4-------------- ----і | |-------- --------------------- %------- 1 

| D 12299В9(2)ВвВ.9,99|2299В9ВВ.9,99 | 13 | | B | Dimension (11,7,2) | 154 | 

p----1--------------- 1-------------- 1----- | ВІТ (10 | ј 

| TOTAL 37 | E----------- 1--------------------- i------- 1 

(----------------------------------------- 1 | TOTAL 156 | 

— — —————— ысы асы ылымы 1 

Figure 38. Example of Numeric Data 

Figure 40. Example of Bit-String Data 
STRING DATA Picture-Specified Character-String Data 
Character-String Data Default precision: not applicable 
Minimum length: 1 character 

Default precision: not applicable Maximum length: 255 characters 

Minimum lengtnh: 1 cnaracter Storage requirements: 

Maximum length: 255 characters 

Storage requirements: 1. Descriptor 

2 bytes (if required) 

1. Descriptor 2. Data 

2 bytes (if required) 1 byte per character 


62 


Figure 41 shows the storage require- 
ments for the picture-specified character- 
string data declared in the following 
sample statement: 


DECLARE A PICTURE "(105)Х", В 
CHARACTER (105); 


SS ада ен ee en eh rd 
| DATA ITEM | DECLARED ATTRIBUTES | BYTES | 
}----------- %--------------------- 4------- 1 
| A | PICTURE * (105)Х" | 105 | 
І-----------і%--------------------- ------- 1 
| В | CHARACTER (105) { 105 | 
p[----------- Dm — ÁO T M —— ЫН 4 
| TOTAL 210 | 
ызы ere ы ыны зады Oe ee 1 
Figure 41. Example of Both Character- 

String and Picture-Specified 
Character-String Data 
LABEL DATA 


Label Variables 

Default precision: 
Maximum precision: 
Storage requirements: 


not applicable 
not applicable 
8 bytes 


Label Constants 
waders -Onstants 
Default precision: 
Maximum precision: not applicable 

Storage requirements: 8 bytes for each 
occurrence of the label in an assignment 
statement or in a GO TO statement refer- 
ring to a label that is not contained in 
the block containing the GO TO statement. 
Label constants in R format items require 
4 bytes. А11 other label constants do not 
require storage. 


not applicable 


Figure 42 shows the storage require- 
ments for the label data declared in the 
following sample statement: 


DECLARE A LABEL, B(7) LABEL; 


Bs a uc due ———————Á ——Á— 
| DATA ITEM | DECLARED ATTRIBUTES | BYTES | 
}----------- %--------------------- і------- 1 
! А | LABEL | 8 | 
f-----=----- }--------------------- 1------- 1 
| B | Dimension (7) | 56. | 
| { LABEL | | 
L----------- САА АЛ АД uel 4 nut E. du. тықа 1 
| TOTAL 64 | 
бы еншш es ee шырышы шш 4 
Figure 42. Example of Label Data 


Default precision: not applicable 
Maximum precision: not applicable 
Storage requirements: 4 bytes 


Figure 43 shows the storage require- 
ments for the pointer variable declared in 


the following sample statement: 


DECLARE P PCINTER, A BASED (P) FLOAT; 


қамдан oie aioe a ae ене a ен tia растиња pex 1 
[БАТА | DECLARED | DEFAULT | | 
|ITEM| ATTRIBUTES | ATTRIBUTES |BYTES| 
}----}---------------}--------------}-----] 
| P [POINTE | None | 4 | 
— ——Á——— Mc ae шышы dcl { 
| TOTAL 4 | 
Бозала E T a ee PR ee АЕ eee 1 
Figure 43. Example of Pointer Data 


Data Storage Depending on Storage Class 


STATIC and AUTOMATIC data require the same 
amount of storage. No storage is required 
for BASED data. However, accessing based 
variables by means of pcinters requires 4 
extra bytes per reference compared with 
the other storage classes. 


Storage of External Data 


Each distinct EXTERNAL variable, array, or 
structure requires storage in multiples of 
8 bytes, Since padding to the next double- 
word boundary is required if the length of 
the EXTERNAL data item is not 8 or a mul- 
tiple of 8 bytes. Figure 44 shows the 
storage requirements of the EXTERNAL data 
declared in the following sample 
statement: 


DECLARE (А BIT(2), .B(3, 2,3) CHARACTER(2), 
C CHARACTER(9), D FLOAT(14), E, 
F PICTURE "59999", С FIXED DECIMAL 
(13,2)) EXTERNAL; 


prerana Pores sa eee ic eem 1 
| | BYTE REQUIRED | 
И ora ао ee quus асан petis нәсе 1 
| VARIABLE | DATA | | | 
| | STORAGE | PADDING | TOTAL | 
}----------4---------4---------}----------| 
| A | 1 | q | 8 | 
р---------- -------- ł--------- %---------- 1 
1 В | 36 | 4 | 40 | 
---------- %--------- --------- ł---------- 1 
| € | 9 | 7 | 16 | 
[---------- }--------- {--------- {-----——--- 1 
| D | 8 | 0 | 8 | 
}---------- %--------- 1--------- 4---------- 1 
| E | фи | 4 | 8 | 
ļ---------- ł--------- ł--------- ł---------- 1 
| F | 6 | 2 | 8 { 
ł---------- ł--------- 1--------- 1---------- 1 
| б | 7 ł 1 | 8 | 
Boe ыы а ии асыны ү ее на Жылан рани 4 
Figure 44. Example of External Data 


Storage 
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Use of Constants in The Source Text 


Constants may appear in the source text 
wherever an expression is permitted. In 
addition, they may appear as replication 
factors, upper bounds of a subscript range 
in the dimension attribute of an array, 


etc. 


Appearance and representation of 


constants in спе object program depends 
entirely on their representation and con- 


text in the source program. 


Only the fol- 


lowing three cases are of concern to the 
programmer: 


1. 
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If a constant appears in the source 
text as an argument in a function or 
subroutine procedure, its object-time 
representation is derived directly 
from the source-program representa- 
tion. For example, the statement 

CALL А (1.5, 3.7E-4, 1100115); 
results in an object-time FIXED DECIM- 
AL representation of the constant 1.5, 
a FLOAT DECIMAL (short float) repre- 
sentation of the constant 3.7E-4, and 
a FIXED BINARY representation of the 
constant 110011В. 


Note: If arguments are written as 
constants, these constants are trans- 
mitted to the called routine in coded 
form and witn the precision derived 
from the source text representation. 
The called routine, in turn, assumes a 
certain internal representation of the 
argument as specified in the parameter 
declaration. The user must therefore 
ensure that base, scale, and precision 
of both arguments and parameters 
match. For instance, declaring the 
first parameter in the above example 
as FIXED (7,1) might lead to an 
object-time error because the called 
program assumes an argument that occu- 
pies 4 bytes, whereas the constant 1.5 
occupies only 2 bytes. 


If a constant appears in the source 
text as the upper bound of an array 
subscript, the appearance of this con- 
Stant in the object program depends on 
how the expression used in this sub- 
Script position is employed in the 
remainder of the source text. At 
best, no constant appears at object 
time for any upper bound. In the most 


unfavorable case, a FIXED BINARY con- 
stant appears in the object program 
for every upper bound m the dimension 
attribute of the DECLARE statemen 


+ 
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Thus, 

DECLARE A (5, 7, 2), B (9, 11); 
may result in, at most, five FIXED 
BINARY constants in the obiect pro- 


gram. At best, no object-time con- 
Stant wili appear for the five upper 
bounds in the source text. 


An object-time constant is derived 
from each source-text constant of a 
certain base, scale, and precision. 
However, kase, scale, and precision of 
the object-time constant depend 
entirely on the context in which it is 
used. For example, the statements 


DECLARE A BINARY; 

А = 1.7; 
cause the constant 1.7 to be stored in 
the object program in floating-poin 
form, even though the source-text 
representation is fixed decimal. 
shows that identically represented 
source-text constants may be converted 
at compile time into a number of dif- 
ferent object-time constants (this 
does not apply to constants in DO 
iteration specifications). For 
instance, the following sample 
statements 


This 


DECLARE A FIXED DECIMAL, 


B BINARY, C FIXED BINARY; 
А = 2; 
В = 2; 
С = 2; 


result in three different object-time 
representations of the single compile- 
time constant 2. On the other hand, 
constants of equal value, base, scale, 
and precision are stored only once in 
the object program unless NOOPT has 
been specified in the PL/I PROCESS 
card. When in doubt about constants 


which appear similar, C.g., 1.2E+7 as 
opposed to 12000000, the programmer 
should review the question of preci- 
sion of arithmetic constants in the 


Subset language publication. 


This section discusses the location of a 
variable in relation to other variables. 
The location of data with respect to the 
entire program is discussed in the section 
Program Overhead. 


а о 


In the object program, variables that are 
not part of a structure are grouped 
according to certain rules referred to as 
boundary requirements, which depend on the 
hardware configuration of the system used. 
For the System/360, the largest unit of 
storage is the "double word" (8 bytes), 
which must always be on а double-word 
boundary (double-word aligned). That is, 
the first byte of any double word in 
storage must be.on an address divisible by 
8. "Full words" (4 bytes) must be full- 
word aligned, i.e., the first byte of any 
. full word in storage must be on an address 
divisible by 4. Bit strings, as another 
example, must be byte aligned, i.e., they 
may occur on any byte boundary. If any 
machine address divisible by 8 is chosen 
as arbitrary byte 0, the above boundary 
requirements can be reduced to tne 
following: 


e double-word aligned data may appear on 
any byte 0; 

. full-word aligned data may appear on 
any byte 0, 4, 0, 4, etc.; and 

* byte-aligned data may appear on any 
byte 0, 1, 2, 3, ... 7, 0, etc. 


Storage Mapping — Element Data 


TO minimize padding between element data 
items, the DOS/TOS PL/I compiler gathers - 
as far as possible - all element data 
items that are subject to the same boun- 
dary requirements. This is done regard- 
less of the point of declaration within 
the program. 


The following discusses the possibili- 
ties of mapping elementary data items not 
contained in structures or arrays and 
should be understood as an introduction to 
the mapping of structures. 


Much storage can be saved by economic- 
ally arranging the individual data types. 
Consider the following example: 

А BIT(2, B, С ВІТ(9), D; 


The result of left-to-right storage 
allocation is illustrated in Figure 45. 


Data Storage Mapping 


The total storage requirement in this 
example is 16 bytes, of which 5 are used 
for padding. 





(5 439. 3 4 5 67 0 1 2 


Figure 45. Storage Allocation Example 1 


Rearranging the variables as follows: 
А BIT(2), С BIT(9), В, D; 


results in а reduction of the total 
storage requirements to 12 bytes with only 
one padding byte. Figure 46 illustrates 
the storage allocation. 


A c B D 
лй 


A 


0 1 


~ 


5 6 7 0 1 2 3 


Figure 46. Storage Allocation Example 2 


Finally, assume that the variables were 
rearranged as follows: 


B, D, A BIT(2), C ВІТ(9); 


This is the way in which the DOS/TOS PL/I 


compiler gathers elementary data items not 
contained in arrays or structures. The 
total storage requirements would be 
reduced to 11 bytes without any padding. 
The storage allocation is shown in Figure 
47. 


B D A C 
ENEGNEZSNEZENEE 

Ü 1 23 4 5 6 70 Y 2 
Figure 47. Storage Allocation Example 3 


Storage Mapping — Arrays 


The storage requirement of an array equals 
the sum of the requirements of the indivi- 
dual data items contained in the array. 
Bit-string data items are aligned on byte 
boundary. Thus, the storage requirement 
of the array declared in the statement 


DECLARE A(5,4,3) BIT(9); 


сап be calculated as follows: The number 
of data items in the array is 5xüx3-60. 
Due to boundary alignment, each item 
requires 2 bytes. Total storage require- 
ment:  2x60-120 bytes. 
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The individual items of an array are 
stored in major row sequence. For the 
above example, this means that the items 
are stored as follows: 


A(1,1,1) 
A(1,1,2) 


A(5,0,2) 
A(5,4,3) 


Storage Mapping — Structures 


To minimize padding, the DOS/TOS PL/I com- 
piler gathers - as far as possible - all 
elementary data items that are subject to 
the same boundary requirements. 


in the declaration of a structure, Such 
gathering of data is not performed because 


a structure is regarded as one record, and 
the programmer might wish to predestine 
the relative position of every data item 
within that record, e.g., in a punched 
card. Thus, the statement below results 
in the storage allocation illustrated in 
Figure 48. The total storage requirement 
is 12 bytes, including 3 padding bytes. 


DECLARE 1 A ALIGNED, 2 B, 2 C BIT(1), 2 D; 





Figure 48, 


Storage Allocation Example 4 


In this example, structure A, which has 
the unused 3 bytes between C and D, can be 
thought of as a record without any editing 
descriptors for the components B, C, and 
D. It should not be thought of as a bit 
String because this might lead the pro- 
grammer to erroneously assume that the 
first bit of the byte following C is the 
first bit of D. 


In the following discussion, the term 
"logical depth" is used to describe the 
level number of a minor structure or ele- 
mentary data item relative to the level of 
the major structure. A minor structure or 
elementary data item can have a high level 
number but be at a relatively low logical 
depth. For instance, in the following 
Sample declaration: 


DECLARE 1 A, 
15 B, 
15 C, 
95 D, 
95 E, 
15 F, 
31 G, 
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31 H, 
45 I, 
45 J, 
54 K, 
54 I; 


structure J has components at logical 
depth 5 aithough the levei number is 54. 
The logical depth of these components is 
greater than that of the components of 
structure C (3), even though their level 
number (54) is not as high. 


When mapping a major structure, first 
map all minor structures at greatest log- 
ical depth n. Then continue with mapping 
the minor structures at logical depth n-1. 
The components that form the minor struc- 
ture at logical depth n-i consist of: 


1. elementary items at logical depth n, 
and 


2. minor structures at logical depth n, 
which have already been mapped. 


After mapping the minor structures at 
logical depth n-1, proceed by mapping all 
minor structures at logical depth n-2. 
Again, the components that form the minor 
structure at logical depth n-2 consist of: 


1. elementary items at logical depth n-1, 
and 


2. minor structures at logical depth n-1, 
which have already been mapped and 
contain the mapped structures at log- 
ical depth n. 


Continuing this process leads to the 
major structure, which is at logical 
depth 1. Mapping of the major structure 
is done by joining the components at log- 
ical depth 2. These components consist 
of: 


1. elementary items logical depth 2, and 


2. minor structures at logical depth 2, 
which have already been mapped and 
contain the mapped structures at log- 
ical depth 3. These, in turn, contain 
the mapped structures at logical depth 
4, etc. 


The storage mapping of structures is 
done according to the set of rules listed 
below. In the mapping process, a com- 
ponent (or a group of partially mapped 
components) may be shifted to minimize the 
padding that may be required between the 
component and the component to be 
appended. The opportunity or potential 
for such shifting depends on the stringen- 
cy levei of the element to be appended. 
The amount of shifting that is permissible 


——— ———— ——————ÓÁÓÁ—— шышы 
| Variable {Stored Internally| Storage 

| Type | as | Requirement+ 
| | | (in Bytes) 
}----------------- 4----------------- %------------ 
| BIT(n) 2 јопе byte for each| 

| {group of 8 bits |CEIL 

| | (or part thereof) | 
|----------------- {~---------------- %------------ 
| CHARACTER (n) [Опе byte per | п 

| |character | 

бысы шыны ыды ларына ылым шысы 4------------ 
PICTURE [Опе byte for each| Number of 


| PICTURE character| PICTURE charac-| 
|ters other than| 


| 
| 
| jexcept M,V,K,G 
| 


| |м, У, K, and G | 


Dede залы сарыннан алара алыс ee ------------- 
| DECIMAL FIXED [1/2 byte per | w+1 
| (w, а) {digit plus 1/2 | СЕТЬ == 
| |byte for sign | 

папа ан PONUNT КОРИ НИ Сине ДЕК паши SE q2-2------2-—— 
|BINARY FIXED (w) |Binary integer | 
}------~----------4----------------- 1 

{BINARY FLOAT (w) | | 

| м < 22 | Short | 4 
Б---------------- {floating point | 

{DECIMAL FLOAT (м) | | 

| w«7 | | 

i — P i ah aes —————— НИНЕ Е +----------— 
| LABEL | --- | 8 
}----------------- {----------------- %------------ 
| POINTER | --- ! ц 

| | | 

| | | 
------------------ 1----------------- %------------ 
| BINARY FLOAT (w) | | 

| 21 <w < 54 | | 
----------------- {Long | 8 
{DECIMAL FLOAT (w)|floating point | 

| 6<w<17 | | 

punc AE HERE И а ae Me 


——— —À Заби ee —À —À 6 


foe РЕЛЕ ЫЕ чао ини iS ES тете 
| Alignment | | Strin- 
|Requirement| Explanation  |gency 
| | {Level 
---%----------- 1--------------- 4------- 
| | | 
| | | 
| | | 
sez | | 
| | | 
| | Data may | 
---4 | begin on | 
| Byte | any byte | 1 
| | 
| | 
| | 
=== | | 
| | | 
| | | 
| | | 
---4----------- 4--------------- +------- 
| | | 
| | | 
| | Data must | 
| Full-word | begin on | 
| | byte 0 or 4 | 
| | | 2 
| | | 
“== | | 
| | | 
~--}----------- 1--------------- 1 
| Full-word | Data must | 
| (right- | редіп оп | 
| adjusted) | byte 0 оғ 4 | 
---і----------- }--------------- %------- 
| | | 
| | Data must | 
| Double- | begin on | 3 
| word | byte 0 | 
Бе ae ree кекете» жене 


|?Structures containing bit strings must have the attribute ALIGNED because the default 
| attribute (UNALIGNED) is not permitted in the PL/I Subset language. 


Шаа да oa ыыы EE NE E OP Ee pa аланина ER TRI 
Summary of Data Alignment Requirements and Stringency Levels 


Figure H9. 


is determined by the alignment require- 3. 


ments of the element(s) to be shifted. 


Both the stringency level number and 
the alignment requirements for the indivi- 
dual data items are shown in Figure 49. 


Locate the first minor structure of 
the greatest logical depth. (See 
Figure 50, part A. The declaration 
Shown is used throughout the figure.) 


Begin the map with the first element 
of this minor structure. The map 
begins on byte zero (See Figure 50, 
part B). 


а «лез «ә» шш ао «ле» P «ли» M арры шшш AU) qum. чат час «лла» m a m еи а atm apu че am «ңе» эшш шш «дч шшш ee mm 


Append the next element of the minor 
structure at the first following byte 
position where it may be legally 
placed. This byte position is deter- 
mined by the alignment requirement of 
the element to be appended. (See 
Figure 50, part B.) 


Owing to the alignment requirement, 
Some unused space (padding) may result 
between the first and the appended 
element. The preceding element may 
then be shifted to the right provided 
the alignment requirement of that ele- 
ment is still satisfied after the 
shifting. if no shifting or only a 
partial shifting is permissible, the 
padding remains there permanently. 
(See Figure 50, part B.) 
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The elements so mapped are now per- 
manentiy joined and пау be considered 
a single element. The alignment 
requirement of the joined items is 
that of the item of nigher stringency 


Any padding that remains after these 
two shifting processes remains there 
permanently. (See Figure 50, part D.) 


level. 9. Continue this repetitive process until 
all minor structures are mapped. (See 
Figure 50, part E.) 
6. Repeat rules 3 and 4 for all remaining 
elements of the minor structure. (See 
Figure 50, part B.) 10. Map the major structure as if mapping 
a minor structure. (See Figure 50, 
part F.) 
7. Repeat rules 2 through 6 for all minor 
structures of the same logical depth. 
Map all. minor structures individually. 11. If the shifted structure does not 
(See Figure 50, part C.) begin on byte zero, pad to the left 
until byte zero is reached. This is 
8. Repeat rules 2 through 7 for the minor the physical beginning of the struc- 
Structures of the next higher logical ture. However, the name of the maior 
depth. Elementary items are appended structure stiii points to the first 
according to rules 3 and 4. Minor component of the structure. 
Structures are appended beginning at 
the byte position they had when they 
were previously mapped.  Padding 12. The first element of the structure 





© DECLARE 1 A ALIGNED, 


, 
Start here ——=— 5 J ВІТ (7), 
(Rule Мо, 1) 


between the two elements, if any, is 
removed by 


а. shifting the succeeding element as 
far to the left as its alignment 
requirement permits, and 


b. shifting the preceding element as 
far to the right as its alignment 
requirement permits. 


J 











2 8 DECIMAL FIXED (11), 
2 <, 
3 D BIT (4), 
ЗЕ PICTURE '(8)9V(4)9', 
ЗЕ, 
4 G LABEL, 
4 H PICTURE '9.9KS99' , 
41 


5 K FLOAT (6), 
5 L BINARY (32), 
4 M, 
5 N CHARACTER (4), 
5 O FIXED (7,3), 
5 P FLOAT (16), 


Mx 


4 U BINARY (20), 
4 V FLOAT (9), 
3 W CHARACTER (3), 
2 X DECIMAL (6); 


must begin on byte zero of the struc- 
ture being mapped if the structure is 
a based variable and the pointer vari- 
able associated with it appears in the 
SET clause of a READ or LOCATE state- 
ment. In this case, the user must 
make sure that the structure begins on 
byte zero. Padding, if required, is 
best done with a dummy variable of the 
CHARACTER type. (See Figure 50, part 
G.) 


Rule No. 6 


Application of Structure Mapping Rule No, 7 


Rule No. 6 





Rules Nos. 2-6 


lication of Structure 


Sample Declaration 


Figure 50. Example of Structure Storage Mapping (Part 1 of 2) 
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F Application of Structure Mapping Rule No. 8 
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Rule No. 8 
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Application of Structure Mapping Rule No. 9 





Rule No. 2 


If one of the conditions specified in Structure Mapping Rule 
No. 12 were applicable to structure A, the leading padding 
byte could be removed Бу inserting а dummy variable as 
follows ; 


DECLARE 1A ALIGNED, 


2 PAD CHARACTER(1), 


2 В DECIMAL FIXED (11), 
2С, 


The unused character variable PAD now occupies byte 0 so 


that the requirements of Rule Мо, 12 are met. 


N 
- 
N 
|] 
> 
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Application of Structure Mapping Rule Мо. 19 | | Application of Structure Mapping Rule No. 12 | 


Figure 50. 


Example of Structure Storage Mapping (Part 2 of 2) 
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Subroutine Storage Requirements 


Three types of subroutines may be required 
in a program: 


1. Conversion subroutines. 


2. Subroutines called by buiit-in func- 
tion names, pseudo variables, and 
other implied subroutine calls. 


3. Subroutines called by I/O statements. 


Conversion Subroutines 


Conversion subroutines are required in the 
object program when certain conversions 


are implicitly requested in the source 
text. For example, the statements 


DECLARE A FIXED BINARY, B FIXED, C 
BINARY; 


A = B + с; 


imply that B is to be converted to binary 
float before being added to C, and that 
the sum is to be converted to fixed binary 
before being stored in A. 


The 18 conversion subroutines (see 
Appendix A) can perform every kind of data 
conversion permitted in the PL/I Subset 
language. Appendix B lists all possible 
combinations of data conversion and shows 
which subroutines are required to perform 
such converstions. For instance, the conv- 
ersion from numeric float to numeric fixed 
decimal requires subroutines 4, 5, and 12. 
Subroutine 5 converts from numeric float 
to an internal intermediate form. Subrou- 
tine 4 converts from this internal inter- 
mediate form to coded fixed decimal.  Sub- 
routine 12 converts from coded fixed 
decimal to numeric fixed decimal. 


Note: In some cases it may happen that no 
subroutine is used at object time although 
the condition for its inclusion was satis- 
fied. In these cases, the user has over- 
estimated his storage requirements. 


MT Aum erus ati, cat шш ш «ғы» EY up SS ED чш кале "up ee ee ae ше «көле ee «кке». 


A system used for scientific purposes will 
normally use subroutines 1, 2, 7, 8, 9, 
10, and possibly 17 and 18, with a total 
storage requirement of approximately 2K 
for an average program. 


A system used for commercial purposes 
will most likely use subroutines 11 and 12 
with a total storage requirement of appro- 
ximately .7K for an average program. 
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Built-in Functions, Pseudo-Variables, And 
Other Implied Subroutine Calle 


Certain built-in functions and pseudo- 
variables require an object-time subrou- 
tine for proper functioning. Some of the 
built-in functions only allow float argu- 
ments. If an argument is not in this 
form, it is converted before the subrou- 
tine is activated. 


The source text operator ** is an 
implicit request for an exponentiation 
subroutine and, depending on the attri- 
butes of the aryuments, six different sub- 
routines could be required. 


All information required for this type 
of subroutines is listed in Appendix C. 


Depending on the specific arguments, 
some functions that are marked IL may or 
may not require subroutines, For 
instance, a fixed first argument in the 
FIXED function would not require a subrou- 
tine, whereas a float first argument most 
probably would. However, the subroutine 
used is a conversion subroutine rather 
than a function subroutine. 


The object-time subroutines are cata- 
loged in the relocatable library. The 
programmer can find the module name in the 
entry-points column. If a module has more 
than one entry point, the module name is 
written first. 


Note: For some mathematical functions, 
the programmer may be interested in 
details such as error statistics and 
algorithms. For such details refer to the 
SRL publication IBM System/360 Operating 
System, PL/I Library Computational Subrou- 
tines, Order No. GC28-6590. The DOS/TOS 
PL/I compiler uses the same algorithms as 
the OS PL/I compiler. Where applicable, 
the respective internal names of the OS 
PL/I compiler subroutines are given in 
parentheses in the rightmost column of 
Appendix C. 


Certain built-in functions available in 
the full PL/I language are not available 
in the PL/I Subset language. Thus, if the 
name of a user-written function procedure 
happens to be the same as that of an 
unavailable built-in function, the user- 
written function procedure is called if 
the program was compiled by means of the 
DOS/TOS PL/I compiler because the built-in 


function of that name is not available. 
However, if this program were compiled by 
means of the OS PL/I compiler, the built- 
in function of that name -- which, in this 
case, is available -- would be called. 

For example: 


A: PROCEDURE; 


= REAL(CY); 


. bá 


END; 


REAL is a function procedure. If this 
procedure is compiled by means of the OS 
PL/I compiler, the built-in function REAL 


is called. Therefore, user-written func- 
tion procedures should be named in such a 
manner as to avoid these complications. 


Subroutines Called by I/O Statements 


Subroutines may be called by I/O source 
statements for use at object time. The 
library subroutines that may be called are 
listed and described in Appendix D. 


Care should be taken that any subrou- 
tine called by an I/O statement does not 
itself contain an I/O statement, a PUT/GET 
STRING statement, or invoke another sub- 
routine containing such a statement. 
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I/O Storage Requirements 


This section provides the information that 
allows the user to determine the amount of 
Storage required for I/O purposes at 
object time, Object-time core storage is 
required 


1. as a function of the file declaration 
itself, and 

2. by library subroutines called by I/O 
Statements, such as GET, PUT, etc. 


The library subroutines called by I/O 
Statements are listed in Appendix D. 


File Declarations 
Each file declaration requires four items: 


1. Buffers (if required) 
DTF table 

Appendage 

IOCS logic module 


EUN 
. 


The first three items are unique to 
each declaration. The fourth may be used 
by various file declarations. 


BUFFERS 


The number of buffers and the correspond- 
ing storage requirements directly derive 
from the file declaration. 


For files other than REGIONAL or INDE- 
XED, the buffer size is equal to the block 
size specified in the F, V, or U option. 
Thus, 80 bytes are required with the 
option Е(80). If, in addition, the option 
BUFFERS(2) is used, the storage require- 
ments for the buffers of this file are 
doubled. The total storage required for 
such files equals the sum of the storage 
requirements for all buffers used for all 
these files. 
Note: No buffer storage is required if 
the F or U option is used with unbuffered 
files. 


Additional buffer storage (8 * number 
Of extents) is set aside for REGIONAL 
files. 


For REGIONAL(3) files the key length 
must be added to the buffer length. 


The buffer storage requirements for 
indexed files can be calculated according 
to the following formulas: 


1. Indexed sequential input and update 


unblocked: к 
blocked: MAX 
recs ize) 


1 47 
ize*2* ke 


cs уе т 
blocksize,keylength 


( 


0 
10+ 


2. Indexed sequential output 


— ee ee ae А4 — — 


blocksizetkeylength+8+recsize 
[*keylength if unblocked] 


3. Indexed direct update 


+ 
ж 

) 
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if unbiockedi 
[I4ADDBUFF if specified] 
[*MAX(8*keylength*blocksize, 
8+keylength+10+recsize) if ADDBUFF 
not specifiedl 


[*INDEXAREA if specified] 


d 
d r^ 


4, Indexed direct input 


keylength*MAX(blocksize,10*recs ize) 
[*INDEXAREA if specified] 


DTF TABLE 


The DTF (Define The File) table is 
required for each declaration. The func- 
tion of tne DTF table is (together with 
the appendage) to allow communication 
between the object program produced from 
I/O source statements and the DTF program. 
The DTF program in turn communicates with 
the operating system for physical device 
control. 


The DTF table has a fixed length for 
each I/O device type. Figure 51 shows the 
Storage requirements for the individual 
DTF tables. 


The number of DTF tables is equal to 
the number of files. The total storage 
required for all DTF tables is, therefore, 
equal to the sum of their individual 
Storage requirements. Thus, an object 
program using three printers and five buf- 
fered, blocked-record, magnetic tape files 
would require 


3x 48 + 5 x 112 = 704 bytes of storage 
for DTF tables. 

A DTFCD table is generated for each 
card device. Figure 52 shows the PL/I 


attributes and the corresponding DTFCD 
parameters. 


| Declaration | Storage Requirements | 
{Specified by File| in Bytes | 
----------------- 1-----------------------1 
pe dev. INPUT | 56 | 
| Card dev. OUTPUT | 48 | 
j 2540, OUTPUT | 136 | 
| 2520 ,„ООТРОТ | 56 | 
----------------- %-----------------------1 
| Printer | 48 | 
}----------------- $----------------------- 1 
| Unbuffered | | 
| magnetic tare | 48 | 
}----------------- ł------ 1-------- т------- 1 
|Magnetic tape, | | | | 
[other than unbuf-| | | | 
| Еетед, with the | | | | 
| option | INPUT| OUTPUT | UPDATE] 
| ļH------ł-------- ł------- 1 
| F | 412 | 104 | - | 
| у { 128 | 120 | - | 
| U | 112 | 104 | - | 
}----------------- {------ ł-------- i------- 1 
|Regional (19% | | | | 
| with VERIFY | - | 256 | 264 | 
| without VERIFY | 216 | 216 | 216 | 
-һ----------------- 4------ {-------- 4------- 1 
{Regional (39% | | | | 
[with VERIFY | - | 328 t 336 | 
| without VERIFY | 216 | 288 | 288 | 
----------------- 1-----І--------1------- 
jindexed direct* | 300 | = | 556%%) 
|with INDEXAREA* | 324 | - | 580**| 
| Indexed | | | | 
| sequential* | 284 | 252 | 284 | 
| | | | | 
| Note: 4 x extentnumber must be added to | 
| all values given for indexed files | 
RNA eco presse qoe теа] 
{Consecutive disk*| | | 
| Unbuffered | 152 | 152 | 152 | 
1 Е | 136 | 160 | 160 | 
| V | 152 | 176 | 192 | 
| U | 152 | 168 | 192 | 
[aoe eee а RICE pce D 1 
| DTFDI | 240 | 240 | 240 | 
ава ле ае PER ———————— 
| * Not permitted for TOS. | 
| ** Add keylength to this value. | 
Uh a ee 1 
Figure 51. Storage Requirements for ОТЕ 


Tables 


А DTFPR table is generated for each 
printer. Figure 53 shows the PL/I attri- 
butes and the corresponding DTFPR 
parameters. 


A DTFMT table is generated for each 
magnetic tape drive. Figure 54 shows the 
PL/I attributes and the corresponding 
DTFMT parameters. 


A DTFSD table is generated for each 
disk file with the CONSECUTIVE option. 
Figure 55 shows the PL/I attributes and 
the corresponding DTFSD parameters. 
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—— ———— ru — — —— A Шы i 
[Blocksize in F option | BLKSIZE | 
------------------------ %----------------1 
{Logical device address |DEVADDR | 
jin MEDIUM option | | 
Бафин Над сснин шш Paneer esce ne 1 
|Dev. type in MEDIUM opt. | | 
| 2540 | DEVICE=2540 | 
| 1442 | DEVICE=1442 | 
| 2520 | DEVICE=2520 | 
| 2501 | DEVICE=2501 | 
------------------------- І---------------- 1 
]|Function attribute | | | 
| INPUT {TYPEFILE=INPUT | 
| | ECFADDR | 
| OUTPUT |TYPEFLE-OUTPUT | 
| | SSELECT=2 | 
}------------~------------}-----+---------- 1 
|Е (blocksize) |RECFORM-FIXUNB | 
------------------------ ----------------і 
|BUFFERS option | | 
| BUFFERS (1) | ICAREA1 | 
| BUFFERS(2) | TOAREA1 | 
| {ТОАВЕА2 | 
| | ТОКЕС=(2) | 
------------------------ %----------------1 
|2540, OUTPUT | CRDERR=RETRY | 
------------------------ }----------------4 
{Control character for | | 
| RECORD I/C | | 
| CTLASA | CTLCHR=ASA | 
| CTL360 | CTLCHR= YES | 
—————— s (————— M 1 
Figure 52. PL/I е уна and Corres- 
ponding DTFCD Parameters 
[PL/I ATTRIBUTES |DTFPR PARAMETERS | 
асы E сыныс ы Шыныда сама — ÀÓ— ЗИ 4 
|Blocksize іп F option | BLKSIZE | 
------------------------ %----------------1 
| Logical device address |DEVADDR | 
|in MEDIUM option | | 
p------------------------ ғ---------------- 1 
Беу. type in MEDIUM opt. | | 
| 1403 | DEVICE=1403 | 
| 1404 | DEVICE=1404 | 
| 1443 | DEVICE=1443 | 
| 1445 | DEVICE=1445 | 
|Е (blocksize) |ВЕСЕОВМ=ЕТХОМВ | 
------------------------ -----------------і 
|BUFFERS Cption | | 
| BUFFERS(1) | ТОАВЕА1 | 
| BUFFERS (2) | ТОАКЕА1 | 
| | ГОАВЕА2 | 
| | LOREG= (2) | 
}------------------------ }---------------- 1 
|05АСЕ attribute | | 
| STREAM | CTLCHR=ASA | 
| RECORD | PRINTOV=YES | 
| CTLASA { CTLCHR=ASA | 
р. CTL360 | CTLCHR=YES ! 
тышты ше СЛЕДИШ ЕИ ка РА ааа аа аан 
ull 53.  PL/I Attributes and Corres- 


ponding DTFPR Parameters 
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1 
[БТЕМТ PARAMETERS | 


[enm — —— ——À «ме -— ғы» T t «шие e «әле чат e A — 


—Ó——Ó—Á———— Ғ----------------1 ------------------------1---------------- 
ІВІосКвіге іп Е, | BLKSIZE | jBlocksize іп Е, | BLKSIZE 

іу, U option i j iV, U option | 
----------------------- -А----------------і| |------------------------і--------------- 
|Recsize in F option [RECSIZE | |Recsize in F option |RECSIZE 
|----------------------- %---------------- |0 Һ----------------------- І--------------- 
| Logical device address  j|DEVADDR ! | Печуа се type in |БЕУІСЕ- 2311 

Jin MEDIUM option | | | MEDIUM option 1 2314 
р----------------------- %---------------- 1 i ! 2321 

IF. V, О option ! | Ғ----------------------- %--------------- 
| | | ЈЕ, V, U option ! 

| | | 4 | 

| F (blocksize) [RECFORM-FIXUNB | | F (blocksize) | RECFORM=FIXUNB 

| F (blocksize, |RECFORM-FIXBLK | | (blocksize, | RECFORM=FIXBLK 

| recsize) | LOREG= (2) | | recsize) | ICREG=( 2) 

| V (maxblocksize) | RECFORM=VARBLK | | V (maxblocksize) | RECFORM=VARBLK 

| | LOREG= (2) | | | ICREG=(2) 

| U (maxblocksize) | RECFORM=UNDEF ! | U (maxblocksize) j RECFORM=UNDEF 
----------------------- %----------------| |------------------------і--------------- 
| BUFFERS option | | | BUFFERS option | 

| | | | | 

| | | | BUFFERS (1) | ТОАВЕА1 

| BUFFERS (1) | ТОАВЕА1 | | BUFFERS (2) | ГОАВЕАТ 

| BUFFERS (2) | IOAREA1 | | | ICAREA2 

| | ГОАВЕА2 | | | LOREG= (2) 

! | LOREG= (2) i Ғ---------------------- 4Ғ--------------- 
Ы----------------------- Һ--------------- 1 |Function attribute | 

[Function attribute | | | | 

| | | | INPUT | TYPEFLE-INPUT 

| | | | | EOFADDR 

| INPUT | TYPEFLE=INPUT | | OUTPUT | TYPEFLE=OUTPUT 

| | EOFADDR | | UPDATE | TYPEFLE=INPUT 

| OUTPUT |TYPEFLE-OUTPUT | | | UPDATE=YES 

| INPUT | TYPEFLE=WORK | | | ECFADDR 

! ) UNBUFFERED] | | INPUT | TYPEFLE=WORK 

| OUTPUT | EOFADDR | | ) UNBUFFERED] DELETFL=NO 
Ғ------------------------4---------------- j | OUTPUT | EOFADDR 

ју (maxblocksize) OUTPUT | VARBLD- (3) | | UPDATE UNBUFFERED {EOFADDR 

ыа ыла е Де ee E ылы Ss 1 Г------------------------4---------------- 
| INPUT, V and F | WLRERR | |У (maxblocksize) OUTPUT |VARBLD-(3) 

| not UNBUFFERED | J Ғ-----------------------і4---------------- 
a лымы ызасы сш ш 4----------------4 | VERIFY |УЕКІҒҮ-ҮЕ5 

| BACKWARDS | READ=BACK | ——€————————— И -------- 
------------------------ р---------------1 pes | ERROPT-Library 

| LEAVE | REWIND=NORWD | | {routine 
}------------------------ }---------------- 4 І------------------------%---------------- 
jNOLABEL option | | | INPUT or UPDATE, F and V|WLRERR 

| | | | І------------------------|---------------- 
| NOLABEL | FILABL=NO | |9, other than UNBUFFERED | RECSIZE= (4) 

| without NOLABEL | FILABL-STD | (...----------------------....------------- 
саналады қалала таласы Тіп шшш а Қалы EH CN DEPT PONE 1 

|0 option, BACKWARDS с, | Figure 55. PL/I Attributes and Corres- 
{pe 1 ponding DTFSD Parameters 

| INPUT J ERROPT= Library | 

| | routine | 

əтəң-----------------------і4---------------- 4 DTF APPENDAGE 

| 9, other than CREUEEERED | PECORE | 

.-----------------------1---------------- 4 Тһе DTF appendage, like the DTF table, 


consists of information derived from the 
file declaration. It also allows communi- 
cation between the object program produced 
from I/O source statements and the DTF 
program. The length of the appendage is 
exclusively determined by the presence of 
a single attribute or option. If the 
declaraticn 


PL/I Attributes and Corres- 
pending DTFMT Parameters 


Figure 54. 


A DTFDA takle is generated for each 
disk file with the REGIONAL option. 
Figure 56 shows tne PL/I attributes and 
the corresponding DTFDA parameters. 


~d 
4с 


1. contains the INDEXED option, the 
appendage length is 40 bytes; 

2. contains the REGIONAL option, 
appendage length is 56 bytes; 

3. contains the BUFFERED, STREAM, or UPD- 
ATE attribute, the appendage length is 
24 bytes; 

4. contains the PRINT attribute or is for 
SYSLST, the appendage length is 32 
bytes; 

5. does not apply to one of the file 
types listed under items 1 through 4, 
the appendage length is 16 bytes. 


the 


The number of appendages is equal to 
the number of files. The total storage 
required for appendages is equal to the 
sum of their individual storage 
requirements. 
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}------------------------ і---------------- 1 
{Device type in |DEVICE- 2311 | 
|MEDIUM option | 2314 | 
| | 2321 | 
}------------------------ %---------------- 1 
| F (blocksize) | RECFORM=FIXUNB | 
------------------------ і%----------------і 
| BUFFERS (1) | ТОАВЕА1 | 
---------------------- --4----------------1 
{Function attribute and. | | 
| organization option| | 
| INPUT, REGIONAL(1) |TYPEFLE-INPUT | 
| | READID=YES | 
| OUTPUT, REGIONAL(1)|TYPEFLE=OUTPUT | 
| | WRITEID=YES | 
| UPDATE, REGIONAL(1) | TYPEFLE=INPUT | 
| | READID=YES | 
| | WRITEID-YES | 
| INPUT, REGIONAL(3) | TYPEFLE=INPUT | 
| | READKEY=YES | 
| | KEYARG | 
| | KEYLEN | 
| OUTPUT, REGIONAL(3)|TYPEFLE-OUTPUT | 
| | AFTER=YES | 
| | KEYLEN | 
| UPDATE, REGIONAL(3) | TYPEFLE=INPUT | 
| | READYKEY=YES | 
| | WRITEKY=YES | 
| | KEYARG | 
i | KEYLEN | 
| | AFTER=YES | 
ETE a ete ИРНЕ Ири ИЕ 4 
| VERIFY | VERIFY-YES | 
[------------------------ %---------------- 1 
|- - | SEEKADDR | 
l- - | ERRBYTE | 
j= = | ХТМТХІТ=ІЈКТХКМ | 
|- - |CONTROL=YES | 
Т ые а eee ee ee hee a ee i 


PL/I Attributes and Corres- 
ponding DTFDA Parameters 


Figure 56. 


E 
[PL/I | | 
| ATTRIBUTES |ОТЕТо PARAMETERS | 
-------------- 4--------------------------1 
| INPUT | TYPEFLE=SEQNTL | 
| SEQUENTIAL or |ТОАВЕА5 | 
| | IOREG=( 2) | 
| |ICROUT-RETRVE | 
| | KEYARG1 | 
}--------------}-------------------------- 1 
|INPUT DIRECT  |TYPEFLE-RANDOM | 
| | IOAREAR | 
| | ICREG-(2) | 
| | ICROUT- RETRVE | 
1 |KEYARG (separate) | 
---------------4-------------------------- 1 
| OUTPUT | IOAREAL | 
| SEQUENTIAL {WORKL (only if blocked) | 
| | IOROUT=LCAD | 
}~-------------}-------------------------- 1 
|ОРРАТЕ DIRECT |TYPEFLE-RANDOM | 

| IOAREAL?, ^ | 
| | WORKL* | 
| |ІОАВЕАВ2 | 
| | LOREG=(2) | 
| | IOROUT=ADDRTR | 
| | KEYARG!, З | 
І------------- ја EEE E 
|Device type | DEVICE=2311, 2314, ог 2321 | 
-------------- Іі --------------------------1 
| VERIFY or { | 
{device | VERIFY=YES | 
[type = 2321 | 1 
-------------- і-------------------------- 
|Е (а) | RECFORM=FIXUNB | 
[ЁК (а,Ь) | RECFORM=FIX BLK | 
| | NRECDS | 
| | RECSIZE | 
---------------і-------------------------- 1 
| KEYLENGTH | KEYLEN | 
| OFLTRACKS | CYLOFL | 
| INDEXMULTIPLE |MSTIND=YES | 
|EXTENTNUMBER  |DSKXTNT | 
| KEYLOC | KEYLOC | 
| INDEXAREA | INDAREA | 
| | INDSIZE | 
| | INDSKIP | 
| ADDBUFF | І0512Е | 
| HIGHINDEX 2311 | НІЧрЕХ=п | 
| 2314 | | 
| 23211 | 
аси }----------------------- = 
{+ Separate for blocked | 
|2 ICAREAL and IOAREAR ray be one and the | 
| same area | 
|? Same ав WORKL if unblccked | 
|^ ADD separate | 
| | 
блогы алалы E A B E a ыы ee ОИЕ 1 
Figure 57. PL/I Attributes and Corres- 

ponding DTFIS Parameters 
A DIFIS table is generated for each 

disk file with the INDEXED option. Figure 
57 shows the PL/I attributes and the 
corresponding DTFIS parameters. 
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A DTFDI table is generated for Stream 
files or buffered Record files if 


1. the logical address specifies SYSIPT, 
SYSLST, or SYSPCH in the MEDIUM 
option, 


2. records are of fixed length and 


unblocked, and the record size (n) is 
not greater than 80 for SYSIPT 

not greater than 81 for SYSPCH 

not greater than 121 for SYSLST and 


3. for output files either 


CTLASA (RECORD OUTPUT files) or 
PRINT (STREAM OUTPUT files) 


ee — а нао ЗА Ф 


Figure 58 shows the PL/I attributes and 


the corresponding DTFDI parameters. 

Cee сестее tee queer шолады шін арақа 
| PL/I ATTRIBUTES | DTFDI PARAMETERS | 
|--------------------- ---------------- 1 
| Device address іп | | 
| MEDIUM option | DEVADDR=SYSxxx | 
Ғ--------------------- 41------------------- 1 
| BUFFERS(1) | ІОАВЕА1 | 
| BUFFERS (2) | ІОАВЕА1 | 
| | ТОАВЕА2 | 
| | IOREG-(2) | 
}--------------------- {------------------- 1 
| SYSIPT | EOFADDR=name | 
| | ERROPT-name | 
| | WLRERR=name | 
| t------------------- 1 
| Recsize in F option | RECSIZE-... | 
Кызыл MR Ror ER m мА De сылы a ea ыты сш J 


PL/I Attributes and Corres- 
ponding DTFDI Parameters 


Figure 58. 


ТОС5 LOGIC MODULE 


The I0CS logic module uses the information 
obtained from the DTF table and the appen- 
dage, to communicate between the object 
program and the DOS/TOS control program. 
Different IOCS logic modules are used 
depending on the options and attributes 
specified in the tile declaration. Files 
having the same options and attributes use 
the same IOCS logic module. For instance, 
any number of file declarations, each of 
which refers to a double-buffered input 
file using a 2540 card reader, would gen- 
erate a requirement for one single IOCS 
logic module only. 


The device type is the principal factor 
in determining which ІОС5 logic module is 
to be used. In Figures 59 through 64, the 
individual modules are therefore grouped 
according to device types. The storage 
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required for each module is stated in 


bytes. 


pr NNUS ле чо TETUER IERI 
| Card | Опе Buffer | Two Buffers | 
| |------- т------- %------- т--------- 1 
| Files | Input | Output] Input | Output | 
------- }------- $------- }~--~---}--------- 1 
| 2550 | 96 | 192 | 128 | 216 | 
}------- %------- 4------- %------- 1--------- 1 
| 1442 | 100 | 7% i 132 | 116 | 
E------- E------- ------- -------- }--------- 1 
! 2520 | 96 { 80 і 128 | 124 | 
------- %------- %------- %------- %--------- 1 
| 2501 | 96 | -- | 128 | == | 
Брна ја асы Жаз шаа аы «uude J 
Figure 59.  IOCS Logic Modules for Card 
Reading and Punching Devices 
ae re ee rr See ee eer ee 1 
| Printer Files | 
}-------------------- т-------------------- 1 
| STREAM | RECORD | 
M EET ан а ње }+------—-+ү---------- 
[1 Buffer 12 Buffers |1 Buffer |2 Buffers | 
--------- %---------- 1--------- 1----------| 
| 196 | 220 | 118 | 152 | 
Кар аа и TEUER NE See doeet PS 
Figure 60.  ICCS Logic Modules for 
Printers 
фен інінде eee pcm mpm em MM 1 
| | Buffered | Unbuffered | 
ааах жаны теді gocce | 
|Tape Files| F | U | V | | 
}----------+----- }-----}-~---4------------ { 
jBackwards | 738 1 556 | -- | | 
----------ф----- T-----4-----4 318 | 
[А11 окното | 690 | 564 | 762 | | 
Пакети НИ Fan ани: Жы ы. Жалына Жарасады 4 


~ ~ ~ 


ic Таре Units 


If both BACKWARDS and non-BACKWARDS 
modules are used in the same program, only 
the BACKWARDS module is included. 


г====т= Е a ea me ай айарын ый акаары: Toc URS 1 
| | Consecutive [Regional | 
|Disk |--------- т-------------- ---т----1 
[Files |Un- | | i | 
| | buffered | Buffered | | | 
| | == о ПИ | 
| | | F| VI ои 11 3| 
}~-----4+~----~+--+---- 4 ----}-—--4---- }---- 
{Input | 682 | 546| 746| 618| 392] 392| 
ļ------ ł--------- Б-Р 
[Output| 682 | 574(1166| 730| 392] 696] 
[~--~-~4---------}---=}----}----4-----+---- 
[upase] 722 | 910|1255|1062| 392| 696| 
киткес ESEE Б ызы ысымы EE IHREN Қалы 
Figure 62.  IOCS Logic Modules for Disk 


Units (other than INDEXED 
Files) 


The following examples show the storage 
requirements for buffers, DTF table, 
appendage, and ІОС5 logic module. 


DECLARE PUNCHF FILE OUTPUT ENVIRONMENT 


(F(80) MEDIUM (SYSPCH, 2540)); 
Buffers 80 bytes 
DIF table 136 bytes 
Appendage 24 bytes 
ІОС5 logic module 192 bytes 
Total 432 bytes 
Example 2 


DECLARE PRINTF FILE STREAM OUTPUT PRINT 


ENVIRONMENT (CONSECUTIVE F(121) BUFFERS 
(1) MEDIUM (SYSLST, 2400)); 

Buffers 121 bytes 

DTF table 240 bytes 

Appendage 32 bytes 

ІОС5 logic module 690 bytes 

Total 1083 bytes 

Example 3 


DECLARE TAPEFF FILE RECORD UNBUFFERED 


ENVIRONMENT (U(512) MEDIUM (SYSO04, 2400) 
LEAVE NOLABEL); 
Buffers 0 bytes 
DTF table H8 bytes 
Appendage 16 bytes 
IOCS logic module 318 bytes 
Total 382 bytes 


gementes: T T 1 
| Disk {Input | Output | Update | 
| кт | -------- т-----4 
{Indexed Files | | |Віоскед| Unbl. | 
}-------------- і-----і------ -------- -----1 
| Sequential | 1086| 803 | 1086 |1086 | 
| Direct | 990| -- | 2948 [2752 | 
|with INDEXAREA| 1138] -- | 3162 [2966 | 
{with ADDBUFF | --| -- | 3220 [2936 | 
Spee ви алкана ыы шы) уыш Же сіз сы к жеткен 1 
Figure 63. ІОС5 Logic Modules for Disk 
Units (INDEXED Files) 
(a eee ae a ge а На 1 
| |BUFFERS(1) BUFFERS(2) | 
}-----------4----------------------------- 1 
| Input | 308 368 | 
| Output | 643 723 | 
Me a ae acr cuc 
Figure 64. IOCS Logic Module for DTFDI 
Files 
EXAMPLES 


Example 4 


DECLARE TAPEBF FILE RECORD BACKWARDS 


UNBUFFERED ENVIRONMENT (U(512) MEDIUM 
(SYS004, 2400) LEAVE NOLABEL); 
Buffers 0 bytes 
DTF table 48 bytes 
Appendage 16 bytes 
IOCS logic module 318 bytes 
Tctal 382 bytes 
Example 5 


DECLARE DISK1F FILE STREAM INPUT ENVIRON- 


MENT (F(1739) BUFFERS (2) MEDIUM (SYS001, 
23119); 

Buffers 3478 bytes 

DTF table 136 bytes 

Appendage 24 bytes 

ІОС5 logic module 546 bytes 

Total 4184 bytes 

Example 6 


DECLARE DSKF FILE RECORD UPDATE BUFFERED 
ENVIRONMENT (F(1024, 256) BUFFERS (1) 


MEDIUM (575002, 2311)); 
Buffers 1024 bytes 
DTF table 160 bytes 
Appendage 24 bytes 
ІОС5 logic module 910 bytes 
Total 2118 bytes 
Example 7 


DECLARE DSKR3F FILE RECORD OUTPUT DIRECT 
KEYED ENVIRONMENT (REGIONAL (3) F(800) 
MEDIUM (SYS003, 2311) KEYLENGTH (9)) 


Buffers 809 bytes 

8x3 extents (default) 24 bytes 

DTF table 288 bytes 

Appendage 56 bytes 

IOCS logic module 696 bytes 

Total 1873 bytes 
Example 8 


DECLARE DSKR1F FILE RECORD UPDATE DIRECT 
KEYED ENVIRCNMENT (REGICNAL (1) F(600) 


MEDIUM (575004, 23110); 
Buffers $00 bytes 
8x3 extents (default) 24 bytes 
DTF table 216 bytes 
Appendage 56 bytes 
IOCS logic module 392 bytes 
Total 1288 bytes 


I/O Storage Requirements 
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Example 9 
DECLARE TAPERF FILE RECORD INPUT BUFFERED 
ENVIRONMENT (V(2048) BUFFERS (2) MEDIUM 


{сүз 


5Ү5005, 2400)); 


Buffers 4096 bytes 
DIF table 128 bytes 
Appendage 24 bytes 


ІОС5 logic module 762 bytes 


а 


poate? би e a a 1e e 


DECLARE INDSQI FILE RECORD INPUT KEYED 
ENVIRONMENT ( F(800,80) MEDIUM (SYS011, 
2314) INDEXED KEYLENGTH(10) EXTENTNUMBER ( 
3) INDEXMULTIPLE KEYLOC(15)); 


Buffers 800 bytes 
DTF table 296 bytes 
Appendage 40 bytes 


Iocs logic module 1086 bytes 


Total 2222 bytes 


DECLARE INDDUP FILE RECORD UPDATE DIRECT 
KEYED ENVIRONMENT (F(800,80) MEDIUM 
(5Ү5012,2321) INDEXED KEYLENGTH(12) VERIFY 
EXTENTNUMBER(2) OFLTRACKS(3) KEYLCC(23) 
ADDBUFF (1688) ); 


Buffers 1768 bytes 
DTF table 576 bytes 
Appendage 40 bytes 
1005 logic тодије 3220 bytes 

Total 5604 bytes 
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Note: If all of the file declarations 
shown in these examples were to appear in 
the same program, the total storage 
requirements would be less than the sum of 
the individual storage requirements 
because, in a few cases, different file 
declarations would use the same IOCS logic 
module. | 


System Units 


SYSPRINT 


The storage required for the DTF table, 
appendage, and ICCS logic module for SYS- 
PRINT is 416 bytes for TOS and 424 bytes 
tor DOS. If DOS aliows а 2311 as SYSLST, 
688 bytes are required. 


SYSIN 


The storage required for the DTF table, 
appendage, and IOCS logic module is 192 
bytes for TCS and 216 bytes for DOS. If 
DOS allows a 2311 as SYSIPT, 408 bytes are 
required. 


Note: If SYSIN and SYSPRINT are used in 
one program, the storage required for both 
is 568 bytes for TOS and 600 for DOS. The 
Storage requirement is 920 bytes for DOS 
if a 2311, 2314, or 2319 is permitted for 
SYSIPT or SYSLST. 


Object-program overhead derives from the 
following two sources: 


1. The DOS/TOS Supervisor, the size of 
which is installation-dependent. 


2. The general PL/I overhead area, which 
exists as a function of the PL/I 
source text. This area comprises the 
following four parts: 


a. The static storage area. 

b. The dynamic storage area. 
с. The block prologue. 

d. The PL/I control module. 


Static Storage Área 


Static storage is required by the seven 
items listed below. (Note that internal 
blocks require only the static storage 
listed under items 5 - 7.) 


1. A constant basis of 132 bytes. 


2. All variables in any block declared 
with the attribute STATIC. 


3. Constants used in the source text. 


4. Four bytes for 

a. each library subroutine explicitly 
or implicitly used in the source 
text; 

b. each reference to a procedure that 
is external to the procedure under 
construction; and 

C. each distinct data item contained 
in any block and declared with the 
attribute EXTERNAL. 


5. A communications area of 4 bytes. 


6. An entry table with a minimum length 
of 4 bytes. If the block is a proce- 
dure, an additional entry of ! bytes 
is made fcr each ENTRY statement in 
the block. 


7. An entry of 8 bytes is made for the 
occurrence of each different condition 
in any ON statement internal to the 
block. 


Since items 1, 5, and 6 are always 
required, the minimum static storage area 
required is 100 bytes, even for the most 
trivial procedure. For example, 


A: PROCEDURE OPTIONS (MAIN); 
END; 


Program Overhead 


Examples of Calculating Static Storage 
Requirements 


The following procedure: 


A: PRCCEDURE OPTIONS (MAIN); 
DECLARE B FIXED BINARY STATIC; 
C: | PROCEDURE; 

D: ENTRY; 
RETURN; 
END; 
E: BEGIN; 
DECLARE I STATIC; 
1=11018; 
END; 
Е: ENTRY; 
END; 


consists of the blocks A, C, and E. Тһе 
Static storage requirements of the indivi- 
dual blocks are discussed in terms of the 
items 1 through 7 listed above. 


Block A 
1. 132-byte basis 132 bytes 
2. Two variables with the STATIC 

attribute 8 bytes 
3. One constant 4 bytes 
4. Communications area 4 bytes 


5. Entry table of 4 bytes minimum 


plus 4 bytes for entry point F 8 bytes 


TOTAL 156 bytes 


Block C 

1. Communications area 4 bytes 

2. Entry table 8 bytes 
TCTAL 12 bytes 

Block E 

1. Communications area 4 bytes 

2. Entry table 4 bytes 


TOTAL 8 bytes 


Consider another external procedure A 
that contains no other blocks. It uses 
400 bytes of static data storage 
(variables and constants). It requires 
five library subroutines explicitly and 
three library subroutines implicitly. 
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Three procedures external to A are 
referred to in procedure A. Six variables 
are declared with the attribute EXTERNAL. 
The procedure has seven secondary entry 
points and contains six ON statements, of 
which four have differing conditions. 
External procedure A would require the 
following static storage: 


1. 132-byte basis 132 bytes 
2. STATIC variables 
400 bytes 

3. Constants 
1. a. 8 library subroutines 32 bytes 

b. 3 procedures external to A 12 bytes 

c. 6 EXTERNAL variables 24 bytes 
5. Communications area 4 bytes 
6. Entry table | 32 bytes 
7. Four ON statements with 

differing conditions 32 bytes 


TOTAL 668 bytes 


Finally, consider a third external pro- 
cedure W that contains two other proce- 
dures, X and Ү. Procedure Y contains а 
BEGIN block 2. 


W uses 400 bytes of static data 
storage, X and Y eacn use 100, and Z uses 
200 bytes. Procedure W requires 3 library 
subroutines, X requires 2, Y requires 5, 
and Z requires 13. Тһе library subrou- 
tines used in blocks W, X, and Y are aii 
different. The 13 subroutines used by Z 
comprise 3 that are required by other 
blocks. No procedure external to W is 
referred to, and there is no EXTERNAL 
data. Procedure W has 5 ENTRY statements, 
X has 2, and Y has 3. There are no ON 
Statements in W, 2 ON statements with 
identical conditions in X, 3 ON statements 
with differing conditions in Y, and no ON 
Statement in Z. 


The static storage requirements for the 
individual blocks are as follows: 


—— = 


2. STATIC variables 


800 bytes 
3. Constants 
4. A total of 20 library 80 bytes 
subroutines 
5. Communications area 4 bytes 
6. Entry table 24 bytes 


со 
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Block Х 

1. Communications area 4 bytes 

2. Entry table 12 bytes 

3. One ON statement 8 bytes 
TOTAL 24 bytes 

Block Y 

1. Communications area 5 bytes 

2. Entry table 16 bytes 


3. Three differing ON conditions 24 bytes 


TOTAL 44 bytes 


Biock 2 
1. Communications area 4 bytes 
2. Entry table 4 bytes 


TOTAL 8 bytes 


The total static storage required by 
external procedure W thus amounts to 
1040 + 24 + 44 + 8 = 1116 bytes. 


Dynamic Storage Area 


Each blocks has its own dynamic storage 
area. The dynamic storage area is zero 
when the block is not active. The length 
of the dynamic storage area when the block 
is active is determined by the following 
five items: 


1. Data with the attribute AUTOMATIC, 
either declared or by default. 


2. А communications area of 80 bytes. 


3. Four bytes for each different paramet- 
er to be transmitted to this block. 





4. Working storage area I: 


This area is used to store intermedi- 
ate results of arithmetic expressions. 
The length of this area is a function 
of the complexity of the source text. 
For a program with arithmetic data 
only, the average length of this area 
is approximately 36 bytes. However, 
if the expressions contain character 
strings, the length increases with the 
length of the character strings. 


5. Working storage area II: 


This area is used to store expressions 
contained in DO loops. DO statements 

may be of either one of the following 

three forms: 


а. DO var=expr-1,expr-2,...,expr-n; 
For such DO statements, the expre- 
ssions are developed and stored 
directly in the variable so that 
no additional storage is required. 


b. DO var=expr-1 TO expr-2; or 
DO variable=expr-1 BY expr-2; 


16 bytes are required for each DO 

statement of this form, regardless 
of the number of iteration speci- 

fications in each statement. 


TO BY 
expr-2 
BY TO 


c. DO var=expr-1 ехрх-3; 


24 bytes are required for each DO 

statement of this form, regardless 
of the number of iteration speci- 

fications in each statement. 


The information required to determine 
which iteration specification is being 
operated upon is also stored in work- 
ing storage area II. Each DO state- 
ment with more than one iteration spe- 
cification requires additional bytes 
to service all iteration specifica- 
tions. Thus, each DO statement 
requires zero, 16, or 24 bytes for 
storing expressions within iteration 
specifications, plus 8 bytes if there 
is more than one iteration specifica- 
tion for the DO statement. 
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Assume a procedure consists of the extern- 
al procedure A, which contains the intern- 
al procedures B and C. Internal procedure 
C contains the BEGIN block D. A and B 
each have 400 bytes of AUTOMATIC data, C 
has 200, and D has 100 bytes of AUTOMATIC 
data. Procedures A, B, and C have only 
one entry point (their primary entry 
point), and each procedure has a list of 
five parameters.  Oniy coded arithmetic 
data is used. The dynamic storage 
requirements of tne individual blocks are 
then as follows: 


Block А | 

1. Data 400 bytes 
2. Communications area 80 bytes 
3. Parameter storage 20 bytes 
^. Working storage area I, 36 bytes 
5. Working storage area II (de- 96 bytes 


pends on complexity of DO's) 


TOTAL 632 bytes 


Block B 


1. Data 400 bytes 

2. Communications area 80 bytes 

3. Parameter storage 20 bytes 

4. Working storage area I, 36 bytes 
approx. 

5. Working storage area II, 32 bytes 
approx. 


TOTAL 568 bytes 


Block с 
1. Data 200 bytes 
2. Communications area 80 bytes 
3. Parameter storage 20 bytes 
4. Working storage area I, 36 bytes 
approx. 
TOTAL 336 bytes 
Block D 
1. Data 100 bytes 
2. Communications area 80 bytes 
3. Working storage area I, 36 bytes 
approx. 
ц. Working storage area II, 32 bytes 
approx. 


TOTAL 


The total requirement for dynamic 
storage at a given moment depends on which 
blocks are simultaneously active. Тһе 
total storage required is the sum of the 
dynamic storage areas for the active 
blocks. In the above example, this is a 
minimum of 632 bytes. If all blocks are 
active simultaneously, the dynamic storage 
requirements amount to 1784 bytes. 


The Block Prologue 


The prologue is a set of instructions 
generated for a PROCEDURE, ENTRY, or BEGIN 
Statement. The generated instructions 
vary depending on the statement. The 
minimum prologue is 52 bytes. The maximum 
is approximately 140 bytes. The minimum 
prologue is used whenever the block is a 
BEGIN block. In all other cases, the 
average is approximately 60 bytes per pro- 
logue. A secondary entry point with 12 
arguments results in the maximum of 1850 
bytes. 
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The PL/I Control Routine 

The PL/I control routine is a library sub- 
routine, which is always required in 
Storage for PL/I programs. It is respons- 
ible for the interaction of the individual 
PL/I program components. Some of its 
functions are listed below: 

1. Dynamic storage aliocation. 

2. Hardware interrupt servicing. 

3. Handling of ON conditions. 


4. Conscructing diagnostic messages. 


5. Terminating execution. 
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6. Transmitting communications informa- 
tion from block to block. 


7. Providing library work space. 


The PL/I control routine is fixed in 
length (approximately 1500 bytes) and is 


regardless of the complexity of blocking 
structures, the number cf external proce- 
dures, and depth of overlaying. 


Note: In the discussion of the program 
overhead, it was shown where the STATIC 
and AUTOMATIC data will be. Іп all furth- 
er references, the term “overhead" is used 
for the actual overhead without data and 
without the DCS/TOS control program. 


After having estimated the storage 
requirements of (1) data, (2) library sub- 
routines, (3) file declarations, and (4) 
overhead contained іп the program, the 
user can determine what part of the total 
storage capacity is left for the remaining 
part of the program. The remaining part 
mainly consists of (1) in-line instruc- 
tions produced directly from the source 
text and (2) calling sequences to subrou- 
tines for those operations that cannot be 
done in line. 


What instructions are produced from the 
source text can be shown by a simple 
example. 


DECLARE A FIXED DECIMAL; 


A =B * C+D; 


The instructions produced from the assign- 
ment statement might be as follows: 


• In-line instruction to load В into 
some register. 


e In-line instruction to multiply C 
(floating-point multiplication) with 
the contents of this register. 


ө In-line instruction to add р 
(floating-point) to the contents of 
this register. 


• Calling sequence(s) to convert the 
contents of this register to fixed 
decimal form. 


° In-line instruction to store the 
result in A. 


Calling sequences can be avoided in 
Some cases, e.g., in the example shown 
above by giving A the attributes FLOAT 
DECIMAL instead of FIXED DECIMAL. To save 
Storage, the user should, therefore, write 
nis programs in such a manner as to avoid 
unnecessary calling sequences. 


The above example shows that a series 
of instructions is generated for a single 
PL/I statement. The number of generated 
instructions depends on the form and com- 
plexity of the respective statement. The 
number of instructions generated for a 
Source-text DO statement, for instance, 
depends on the complexity of the expre- 
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ssions within an iteration specification, 
the number of options chosen, and the 
number of iteration specifications. 
However, the following average values can 
be assumed: 


1. Та а purely scientific environment, 
the average PL/I source statement 
generates ten 4-byte instructions. 


2. In a purely commercial environment, 
the average PL/I source statement 
generates seven ü-byte instructions. 


3. These average values are considerably 
increased by an excessive use of con- 
versions of base or scale and GET and 
PUT statements in either scientific or 
commercial environments. 


4. Parameters as well as BASED and 
EXTERNAL data require 4 bytes in addi- 
tion to the storage requirements of 
the data item. 


Thus, if 5000 bytes are available for 
the object program, the user may assume 
that approximately 125 PL/I statements 
(scientific environment) or 178 PL/I sta- 
tements (commercial envircnment) can be 
accommodated in this area. If the program 
exceeds this number of statements, the 
user must either shorten the function of 
the program or use the overlay feature. 


Note: If listing of source-program state- 
ment numbers in case of execution-time 
errors is requested (by specifying STMT in 
the PL/I PROCESS card), the additional 
storage requirements are 4 bytes for each 
time the statement number appears in the 
object-program listing. 


Problem Analysis Example 


A tape system that has a storage capacity 
of 16K is used for maintaining files. The 
problem program consists of 3 phases. 
Phase 1 reads transaction cards (one 80- 
column card per transaction) and sorts, 
edits, and writes the contents of these 
transaction cards on a magnetic tape file. 
Phase 2 reads the old master file, a tran- 
saction card, and writes a new master file 
record. Both of these operations involve 
magnetic tapes for old and new master 
records. An exception report is written, 
if necessary, on a fourth magnetic tape. 
Phase 3 takes the excepticn file and pre- 
pares it with appropriate headings. 
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їп the following example, only the 
storage requirements for phase 2 are 
examined. 


FILE DESCRIPTION 


Unblocked, 320-character 


Old Master File: 
fixed length. 


records of fix 


New Maste 320-спакаскек 


records of fixed len 


қ 
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Transaction File. Unblocked 80-character 
records of fixed length. 
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DATA ASSUMPTIONS 


Due to the requirements of temporary 
storage, arithmetic statements, etc., 50 
variables and constants are used in addi- 
tion to the data read from and written 
into files. All data is describable in 
terms of pictures and character strings; 


no data is read or written in packed mode. 


OTHER ASSUMPTIONS 
1. Each file has only one buffer. 


2. The data is processed in its respec- 
tive buffer by use of the READ SET or 
LOCATE SET statements. 


3. The program can be written in one 
block. 


4. The problem does not necessitate 
inter-phase communication. 


5. If conversions from numeric fixed to 
coded fixed become excessive, the user 
will convert the data items once and 
use the coded fixed form for subse- 
quent computations. 


Storage Requirements 
The storage requirements are as follows: 
1. Data 


a. Data read from, or written into, 
files are accounted for in 


buffers. 
b. 30 variables (XXXX.XX) 120 bytes 
20 constants (XXX.XX) 60 bytes 


C. Descriptors approximately 150 bytes 


TOTAL approx. 


Ооо 
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2.  Non-I/O Subroutines 
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Numbers 11 and 12 


TOTAL 640 bytes 
3. File Descriptions 
a. Buffers - 820 bytes. 
b. DIF tables - 368 bytes 
C.  Appendages - 96 bytes 
d. IOCS logic modules - 690 bytes 
TOTAL 1974 bytes 
4. I/O Subroutines 
Number 6 
TOTAL 652 bytes 
5. Overhead 
a. Static - approx. 160 bytes 
b. Dynamic - approx. 150 bytes 
с. Prologue - approx. 60 bytes 
d. PL/I control - approx. 1500 bytes 
TOTAL approx. 1870 bytes 


6. DOS/TCS Control Program 


i d 


approx. 6150 bytes 


This means that approximately 4,770 
bytes of storage are available for the 
actual program, so that the approximate 
number of PL/I statements that would fit 
into storage is 160. 


After having programmed the problem, 
the user would determine whether or not he 
can change the buffering to allow for 
faster transaction processing. If the 
data read and/or written are changed into 
packed form, the buffer requirements are 
reduced, and the non-I/C subroutines of 
640 bytes would not be required. This 
would allow for approximately 30 addition- 
al PL/I statements. 


If certain parts of an object program are 
not required in storage throughout its 
execution and never simultaneously 
required in storage, the same storage area 
can be used to store these parts to reduce 
the overall requirements of the program. 


Each part of the program that will 
reside in storage only for a fraction of 
the execution time is referred to as an 
overlay. The MAIN procedure must not be 
used as an overlay. Each overlay as well 
as any portion of the program that resides 
in storage throughout the execution is 
referred to as a phase. A phase consists 
of one or more external procedures. 


The PL/I subset does not provide direct 
overlay facilities. However, overlays can 
be performed by using the library subrou- 
tine OVERLAY that provides a link to the 
operating system which, in turn, loads the 
actual overlay. (Refer to the SRL publi- 
cations describing the DOS/TOS control and 
service programs.) The statement calling 
the overlay must be coded as follows: 


Царе1:1 ... CALL OVERLAY 
(character string expression - max. 
length 8) 
For example, LINK: CALL OVERLAY 
(*PHASE5*') ; 


The overlay call activates the OVERLAY 
subroutine and transmits the name of the 
phase to be fetched to the control pro- 
gram. The control program locates this 
phase on the external medium. The phase 
is then loaded into storage. It must not 
overlay the fetching procedure. Finally, 
control is returned to tne fetching 
procedure. 


Rules For Using Overlay 


The following 17 rules should be observed 
when using overlay calls: 


1. After the phase has been entered in 
storage, it must be activated Ly means 
Of a call to the procedure name or any 
of its entry points. 


2. The phase name is independent of the 
procedure name. It is assigned by 
means of a PHASE card during proces- 
sing by the Linkage Editor. 


3. A fetching phase (i.e., a phase acti- 
vating an overlay) may have been 


10. 


11. 


Overlay 


fetched into storage by a preceding 
fetching phase. A series of succes- 
sive fetching phases is referred to as 
a tree structure (see Figure 65). The 
principal fetching phase of a tree 
structure is referred to as the root. 
A phase within the tree structure 
which is not a fetching phase is 
referred to as a leaf. | 


A fetching phase may fetch any phase 
lower than itself in the tree struc- 
ture, provided the fetched phase is on 
the same branch as the fetching phase. 


If a phase fetches a phase more than 
one level below it, an empty space is 
left in storage for each phase between 
the fetching and the fetched phase. 


The root cannot be overlaid. It 
resides in storage throughout the 
execution of the problem program. 


A phase may be activated at any time 
after it has been fetched, provided it 
has not been destroyed. 


Fetching a phase already fetched into 
storage causes a new сору of that 
phase to be fetched into storage. All 
variables of that phase which are in 
Static storage have no known value. 


Data to be known in more than one 
phase may be given the EXTERNAL attri- 
bute or be transmitted through argu- 
ment lists of the CALL statement. 
External names that are to be common 
to more than one phase below the root 
level must be declared to be external 
both in the affected phases and in the 
root. For larger volumes of data, the 
use of the EXTERNAL attribute general- 
ly requires less storage than argument 
transmission. Where the argument 
names change, argument transmission is 
normally more economical than giving 
the data the EXTERNAL attribute. 


External names of procedures to be 
fetched must be unique (see Figure 
65.) 


A library subroutine is incorporated 
in every phase in which it is used if 


a. the subroutine is used in a proce- 
dure kelow the root level; and 


b. that subroutine is not in the 
root. The multiple appearance of 
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the subroutine can be avoided by 
incorporating it in the root 
through the use of an INCLUDE 
tement during link-editing so 
it appears only in the root. 


ROOT 


sta- 
that 


Note: The ROOT phase may fetch any phase, A through O. Phase A 


may fetch any phase, C through L.Phase B may fetch any phase, 
M through О. Phase С may fetch phases Е and С. Phase Е may 
fetch any phase, H through L. Phase H may fetch phases J 
through |. Phases D, M, N, О, F, G, I, J, К, and | are 
leaves. 


Figure 65. Schematic Representation of a 
Tree Structure 
Note: Care should be taken if relo- 


12. 


13. 
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catable modules that are not PL/I 
library subroutines are to be included 
into more than one phase by the auto- 
link feature. For details, refer to 
the SRL publications describing the 
DOS/TOS system control and system ser- 
vice programs. 


If many phases from different Lranches 
of the tree structure activate the 
same procedure, this procedure may be 
incorporated in the root in a manner 
Similar to the inclusion of subrou- 
tines (see rule 11). 


If (1) the declaration of a file is 
made internal to some phase which is 
not the root, 
in this phase, and (3) the phase is 
about to be overlaid with a phase from 
another branch of the tree structure, 
the user must close this file before 
it is destroyed. This restriction 
does not apply if the file is declared 
both in the root and in a lower phase. 


eet 


Note: If the PL/I standard files are 
used (by a GET or PUT statement) ina 
phase other than the root, these files 
must either be used in the root phase, 
too, or ina phase that will not Бе 
further overlaid. Another possibility 
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is to include the corresponding 
modules in the root by means of the 
Linkage Editor control statements 


INCLUDE IJKSYSA (for PUT) 
INCLUDE IJKSYSI (for GET) 


In all other cases, the standard files 
cannot be closed, and an error will 
occur at End-of-Job. 


If the object-time diagnostic 
are to include the numbers of 
source statements causing the errors, 
STMT must be specified in the PROCESS 
card for at least the first external 
procedure contained in the root phase. 


messages 
the 


The time to find and transfer а оһаве 
to core storage requires between 200 
and 600 msec for DOS, depending on the 
phase length. A 10K phase, for 
example, would require approximately 
350 msec. 


et 1 І 
а phase to core storage for TOS 
depends on the physical location of 
the phase on SYSLNK. 


Different modules to be included from 
the relocatable library may be ident- 
ical except for one or more additional 
entry points in one of these modules. 
If the module without the additional 
entry point(s) is contained in the 
root phase, calling of the module with 
the entry point(s) in overlay phases 
will result in an error during 
link-editing. 


For instance, the PL/I library rou- 
tines IJKTSTM and IJKTLCM have the 
following entries: 


народни T TUIS qe pee maar нал 
| Module Name | IJKTSTM | IJKTLCM | 
-------------- 4--------- +--------- 1 
| Entry | IJKTSTM | IJKTSTM | 
| Names | IJKISIN | IJKISTN | 
| | IJKTSTR | IJKTSTR | 
| | | IJKTLCM | 
(eS eS ВЕК и кошы а ОЛЫ caus 3 


(IJKTSTM is used for stream 1/0, 
IJKTLCM is used for stream I/O with 
COLUMN or LINE.) 


If IJKTSTM is contained in the roct 
phase, calling of IJKTLCM in an over- 
lay phase will result in an error dur- 
ing link-editing. To avoid such 
errors, the module containing the 
additional entry (IJKTLCM in this 
case) must be included in the root 
phase by means of an INCLUDE 
statement. 


Overlay Example 


Assume that some program consists of one 
external procedure, which is a single 
block. Compilation of this procedure on a 
system with a storage capacity of 16K pro- 
duces an object program that requires 20K. 
The storage requirements for the individu- 
al parts of the program are as follows: 


DOS/TOS control program - 6K 
Overhead - 2K 
Data - 2K 
Subroutines including - 5K 
logical IOCS 

Object program - 5K 


Actually, the program requires only 19K 
under the assumption that 1K of data is 
automatic and 1K is static. However, 20K 
is required when the data is allocated. 

In order to make the object program run 
on a system with a storage capacity of 
16K, it is segmented into 8 phases. The 
root, which is located behind the DOS/TOS 
control program, contains the MAIN proce- 
dure and the subroutines. Thus, the root 
pius the DOS/TOS control program may 
require 11K plus the overhead and program 
requirement of 2K, i.e., a total of 13K. 
Since the PL/I control program is in the 
root phase, the total overhead for the 
non-root phases is approximateiy .5K. 


This remaining overhead increases 
slightly because there are now 8 separate 
blocks, each of which with its own over- 
head. The allotment of this remaining 
overhead may result in .25K per block. 

Due to these changes, the program logic 
must be slightly changed and extended to 
allow for the overlaying. This brings the 
requirement for the object program to 
about .7K per phase. Since each phase 
requires less than 1K and the root plus 
the control program requires 15K, the pro- 
gram will now run on a system with a 
Storage capacity of 16K. The root will 
fetch the first phase (named PHSE1) and 
activate it. Control is then returned to 
the root, and the second phase (named 
PHSE2) is fetched and activated. This 
process is repeated until the eighth phase 
has been executed. This completes the 
processing of one block of input data, and 
the process is then repeated. The names 
of the procedures shown below are A for 
the root and B1, B2, ...., B8 for the 
phases. 


A:PROCEDURE OPTIONS (MAIN); 
DECLARE (data items) EXTERNAL; 
ON ENDFILE (file-name) action; 


BEGIN: CALL OVERLAY ('PHSE1'); 
CALL B1; 
CALL OVERLAY ('PHSE2'); 
CALL B2; 


CALL OVERLAY ('PHSEB8*'); 


CALL B8; 
GC TC BEGIN; 
END 


B5: PROCEDURE; 
DECLARE (data items) EXTERNAL; 


- source text 


RETURN; 
END; 


For DOS, the additional time required 
per block of input data when using the 
overlay feature is approximately 4 
seconds. For TOS, the additional time 
required depends on the number and order 
of the phases. In the above example, the 
time increase is about the same for DOS 
and TOS. 


Processing of Overlays by The Linkage 
ditor 


All phases of one program are processed by 
the Linkage Editor program in one single 
job step. Therefore, only cne // EXEC 
LNKEDT statement must be given for a 
multi-phase program. Each phase requires 
one PHASE statement, which must immediate- 
ly precede the input for this phase. The 
ENTRY statement, if used, must be the last 
Statement in the input stream to be writ- 
ten on SYSLNK. A multi-phase program must 
contain one external procedure with the 
option MAIN. This external procedure must 
appear in the physically first phase, 
i.e., in the root phase. 


If programs that contain overlays are 
to be processed by the Linkage Editor pro- 
gram, a PHASE statement of either one of 
the following three formats must be used: 


1. PHASE phasename,ROOT 
This format must be used for the root 
phase. It must be the first PHASE 
Statement in the input stream. 


2. PHASE phasename, * 
This format of the PHASE statement 
causes the subsequent phase to be 
loaded beginning at the next double- 
word boundary. The use of this state- 
ment is recommended for the second 
phase. 


3. PHASE phasename,symbol 


—— MÀ = 


in a previous phase (except in the 
root phase). This format of the PHASE 
Statement causes the next phase to be 
loaded beginning at the address of the 
symbol. | 


The syntax rules for the PHASE state- 
ment are as follows: 
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1. A phase name must be from 5 to 8 
characters long. 


2. А11 phase names of a program must be 
identical in their leftmost four 
characters. 


Note: Different programs (tree struc- 
tures) must differ in the first four 

ч до ме зе AF bhna Bin eR Meee lun 
WHALGAYCE LO OL ИСА њЏорцаох MAHTO Lil 
order to avoid incorrect storage 
allocation. 


3. The phase names must be identical to 
the values of the character-string 
expressions (except for blanks on the 
right-hand side) that are used as 
arguments in the OVERLAY statement. 


When link-editing multiphase foreground 
the ACTION statement with the 
operand Fi or Е2 must be used because, 
otherwise, the PHASE card for the first 
phase could not have the ROOT operand. 

The first three characters of the phase 
names of a multiphase foreground program 
should be FGP to have them retrieved fast- 
er from the core-image library. 


-T = «тю — ED D uu RUD «шо ако е сри» COND ES SS AS AD GNUD elite m с “ул um == сав «қа и ско > Oo eee «шә <= 1 
|// JOB MYOVLAY : 


|// OPTION LINK 
| PHASE OVLAY1,ROOT 
|// EXEC PL/I 
| | RT:PROCEDURE OPTIONS (MAIN); 
RU : ENTRY 
CALL OVERLAY ('OVLAY2'); 


| 

| 

| 

| 

| 

| 

| 

CALL OVERLAY ('OVLAY3'); | 

- | 
CALL Е; | 

А | 
END; | 

| 

INCLUDE JKLM | 
PHASE OVLAY2, * | 
| 

deck XYZ | 
| 

PHASE OVLAY3,OVLAY2 | 
INCLUDE MYPROG | 
// EXEC PL/I | 
E:PROCEDURE; | 
4 | 
END; | 
| 

ENTRY RU | 
| 

| 

| 

1 


// EXEC LNKEDT 
8|// EXEC 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| INCLUDE 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


Figure 66. Sample Program to be Processed 


by the Linkage Editor 


Figure 66 shows a sample program to be 
processed by the Linkage Editor. The num- 
bers at the left-hand margin are not part 
of the coding; they serve as reference to 
the explanations only. 
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Explanation 

1 Causes loading of phase CVLAY2. 

2 Causes loading of phase CVLAY3. 

3 Activates procedure E in phase OVLAY3. 
It is assumed that phase OVLAY3 has 
been loaded previously and has not been 
destroyed, (for exampie, by reloading 
phase CVLAY2). 

4 The module ӘКІМ that is cataloged in 
the relocatable library is to be used 
іп OVLAY2 and OVLAY5. Therefore, it is 
included in the ROOT phase by an 
INCLUDE statement. 

5 This statement causes three actions: 

a. It signals that the input stream of 
ОУТАУЈ is terminated. 

b. The modules that are contained in 
the relocatable library and 
required for OVLAY1 are retrieved 
from the library by the autolink 
feature in order to complete 
OVLAY1. 

с. Phase CVLAY2 is loaded beginning at 
the first double-word boundary fol- 
lowing the last module of OVLAY1. 

6 This statement causes three actions: 

a. It signals that the input stream of 
OVLAY2 is terminated. 

b. The library modules that are 
required for phase OVLAY2 and not 
contained in the ROOT phase 
(OVLAY1) are retrieved from the 
library by tne autolink feature. 

C. The starting point of OVLAY3 is 
determined to be the same as that 
for CVLAY2. 

7 This statement causes four actions: 


a. It signals that the input stream 
for the program is terminated. 


b. The library modules that are 
required for phase OVLAY3 and not 
contained in the RCOT phase 
(OVLAY1) are retrieved from the 
library by the autolink feature. 


c. RU is determined to be the starting 
point for the execution of tne 
program. 


d. The starting point of the dynamic 
Storage area is determined to begin 
on the first double-word boundary 
following OVLAY2 or OVLAY3, whi- 
chever is longer. 


8 Fetches OVLAY1 and transfers control to 
entry point RU. Note that only the 
ROOT phase is loaded by // EXEC. 


+ See PL/I. Procedures Contained in the 


= ee nn nen eee eee 


Se SS SS SS a а. 


The structure of the resolved overlay 
scheme of the above example is shown in 
Figure 67. 


DOS/TOS 


Modules included by the 


autolink feature, if any. 





imos 


OVLAY2 Modules included 
by the autolink OVLAY3 E 


feature, if any. 


by the autolink 
feature, if any. 


| Modules included 


Dynamic storage 


| 
| 
| 
| 
L 


Structure of the Resolved Overlay Scheme - R. 


Structure of the Resolved 
Overlay Scheme 


Figure 67. 


PL/I Procedures Contained in The 
Relocatable Library 


Precompiled PL/I procedures may be inco- 
rporated in the relocatable library by 
using the DOS/TOS MAINT service program. 

A module is retrieved from the library and 
incorporated in the object program by the 
autolink feature when the name of the 
module is specified for the first time 
either in a PL/I function reference or in 
a CALL statement. 


No module is retrieved from the library 
if only secondary entry points are 
referred to in the calling procedure(s). 
In this case, a statement of the format 


INCLUDE module-name 


is required to include the module in the 
object program. Оп the other hand, inco- 
rporation by the autolink feature can be 
suppressed for a specific module by refer- 
ring only to secondary entries of that 
module. To obtain the same result as by 
calling the primary entry point, the pro- 
grammer may insert a statement of the 
format 


ENTRY secondary-entry-name 


immediately benind the PRCCEDURE statement 
of the external procedure. 


Note: Although this description covers 
most of the applications of the overlay 
Scheme, the reader should study the sec- 
tion covering the Linkage Editor program 
in the SRL publications that describe the 
DOS/TOS system control and service 
programs. 
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Program Listings 


Source Program Listing 


All source program cards are listed if the 
LIST option is in effect. Each card is 
printed as one line. The source state 
ments are numbered sequentially starting 
at 1. The statement number is printed in 
print positions 1 through 6 of the line 
where the statement begins (right- 
aligned). In case a line contains more 
than one statement, only the number of the 
first statement is printed. However, 
since the remaining statements are coun- 
ted, the next line again gives the correct 
statement number. 

Note: If comments or character . 
are not correctly opened or closed in Ке 
source text, unpredictable diagnostic mes- 
sages may be produced. Also, the source 
statement numbering will be erratic. 


If the source statement contains any 
error(s), the statement number is used in 
the corresponding diagnostic message to 
clearly identify the statement in error. 
The diagnostic messages are listed in 
Appendix F. 


Column 1 of PL/I source program cards 
must always be blank. If column 1 of a 
source card contains any character, print 
positions 7 through 20 of the correspond- 
ing line in the source program listing -- 
i.e., the gap between the statement number 
column and the source statement column 
plus column 1 of the source card -- are 
filled with asterisks to indicate this 
error. Columns 73 through 80 are ignored 
and may contain any information. 


Symbol Table Listing 


If the SYM option is specified, all sym- 
bols used in PL/I source programs are 
listed in the symbol table. The format of 
the symbol table is snown in Figure 68. 


The symbol table is listed even if 
NOSYM was specified in case a declaration 
contains an error or an external name is 
too long. 


The programmer is advised to examine 
the symbol table listing after the first 
compilation of a procedure to detect 
erroneously declared identifiers and iden- 
tifiers that may have been incorporated by 
default rules as the result of 
mispunching. 


The attributes ALIGNED or UNALIGNED, if 
Specified for a major structure, are 
printed together with the elements of the 


90 


structure, unless an opposite attribute 
has been explicitly declared for a parti- 
cular element. 


ee re ee 1 
| Print | | 
jPositions|Contain | 
--------- 4%-------------------------------1 
| 1-31 |user-defined name | 
}---------}------------------------------- { 
| 33-36 [internal representation | 
Ғ--------- %------------------------------- 1 
| 38-39 {block number | 
}~-------- }------------------------------- 1 
i 41 [block 1еуеі number | 
---------- і------------------------------- 
| 43-49 jone of the attributes ARRAY, | 
| | STRUCT., ENTRY, or BUILTIN* | 
}---------}------------------------------- 1 
| 51-53 {logical structure level* | 
5---------4------------------------------- 
| 55-61 |опе of the attributes ARITHM., | 
| |STRING, LABEL, PCINTER, FILE, | 
| jor PICTURE* | 
Кееш фран па ара такка eee ee 
| 63-69 Jone of the attributes DECIMAL, | 
| | BINARY, ALIGNED, UNAL., CONST., | 
| Jor VARIAB.* | 
}---------}--~---------------------------- 1 
| 71-75 Jone of the attributes FIXED, | 
| |FLCAT, BIT, CHAR., or STERL* | 
}---------}------------------------------- 1 
| 77-81 is precision or length* | 


| 83-88 lone of the attributes STATIC, | 
| | AUTOM., BASED, PARAM., or | 
| | DEFIN. * | 
к--------{--——-------—------——------—-———- { 
| 90-92 fone of the attributes INT or | 
| | EXT | 
ыы таласа S 1-------------------------------і 
|* if applicable | 
Nee а ы лысы сабы ыссы ырлы а аш ТЕ 1 
Figure 68. Format of the Symbol Table 
Listing 


Any error detected during compilation in 
the declaration of the symbols is identi- 
fied in the symbol table. In this case, 
only the source program symbol, one of the 
messages listed in Figure 69, three 
asterisks, and the code pertaining to the 
message appear in the respective line of 
the listing. 


parand only. Comparison starts with the 
innermost block and proceeds either on the 
same nesting level according to the block 
sequence of the program, or to the block 
with the next higher nesting level. 


Example: 
OUT: PROCEDURE; 
DECLARE E BINARY EXTERNAL; 
IN: PROCEDURE; 
DECLARE E DECIMAL EXTERNAL; 
END IN; 
END OUT; 


The message appears with the Е in procedure 
IN. 


eer ee er cy y 1 
| Code| Message Text | 
}----}--~-----~--------------------------- 1 
| 01 {SYNTACTICAL DECLARE ERROR. | 
наа рани nnn nnn nnn nnn nnn 1 
| 02 |CONFLICTING ATTRIBUTES. | 
----І------------------------------------ 1 
| 03 {PRECISION IS MISSING OR WRONG. | 
E----4------- ----------------------------- 1 
| 0% |BASE VARIABLE ITSELF IS DEFINED OR | 
| | BASED. | 
|----+~------------------~------------------ { 
| 05 |BASE OR POINTER INCORRECT. | 
о 1 


06 {ATTRIBUTES OF SECONDARY ENTRY CON- | 
| FLICT WITH THOSE OF PRIMARY ENTRY. | 


| 

| 

}----}------------------------------------ 1 
| 07 |MULTI-DECLARED IDENTIFIER. | 
-----1------------------------------------ 1 
| 08 JENTRY RETURNS VALUE WITH CONFLICTING | 
| |АТТВТВОТЕ5. | 
рР----І------------------------------------ 1 
| 09 |INVALID STRUCTURE. (Any invalid | 
| jelement in a structure may invalid- | 
| јаке the entire structure). | 
[----4------------------------------------ 1 
i ОА |АВВАҮ TOO LONG. | 
р----І------------------------------------ 1 
| OB |STRUCTURE ТОО LONG. ! 
}----+------------------------------------ 1 
| OC |POINTER ІМ BASED STRUCTURE. | 
}----4------------------------------------ { 
| OD | TOO MANY ARRAYS. | 
}----}~------------------------------------ 1 
| ОЕ |INVALID PICTURE. | 
}----+------~----------------------------- 1 
| OF | STRUCTURE LEVEL DEEPER THAN EIGHT ] 
}----}~----------------------------------- 1 
| 10 |NAME EXCEEDS 31 CHARACTERS ІМ | 
| | LENGTH. | 
bI----714£-.-------——-—-—————————————————— 
{ 11 |EXTERNAL NAME EXCEEDS 8 CHARACTERS | 
| {IN LENGTH. | 
— —————ÁÁ—À———À 
| 12 |MULTIPLE DECLARATION OF EXTERNAL | 
| |NAME INCONSISTENT. | 
бош қылысты са idR ыш ш КТ ие ы сыш е 1 
Figure 69. Error Codes Used in the Symbol 


Table Listing 


Cross-Reference Listing 


If XREF is specified either ir the OPTION 
statement or in the PL/I PROCESS statement · 
a cross-reference listing will be provided 


containing the external names in alphabetic 
order as well as the internal names and the 
statement numbers of those statements in 
which the names appear. References to 
identifiers in DECLARE statements or to 
incorrectly declared identifiers are not 
printed. 


Offset Table Listing 


The offset table listing is produced if the 
SYM option is specified in the OPTION sta- 
tement. THe information is printed in four 
columns in hexadecimal notation. 


Internal Name. A variable or constant is 
listed in the offset table if (1) it is de- 
clared in the source text and (2) it 
appears either in the automatic or static 
Storage area, and (3) has a fixed offset 
relative to the beginning of the respective 
Storage area. 

Offset. This column gives the offset of 
the data item relative to the beginning of 
the automatic or static storage area for 
the corresponding block. 


Type. This column indicates whether the 
data item is contained in static or in 
automatic storage. 

Module Offset. This column gives the off- 
set of the data item relative to the begin- 
ning of the module in which it appears. 
(Since the addresses in automatic storage 
are dynamically assigned, no offset rela- 
tive to the beginning of the module can be 
given for automatic data.) The absolute 
address of the data item contained in stat- 
ic storage can be determined by adding the 
load address of the module (to be found in 
the Linkage Editor storage map) to the 
value given here. 


External Symbol Table Listing 


The external symbol table is produced if 
the SYM option is specified in the OPTION 


Statement. It contains the following 

information: 

column 1: SYMBOL - the external symbol 

column 2: TYPE - either SD, LD, or ER 

column 3: ESID - ESID number of control 
section that is referred 
to (for SD and ER) 

column 4: ADDR - begin address (for SD 
and LD) 

column 5: LENGTH - end address (for SD 
only) 


ESID number of control 
section that is referred 
to (for LD) 


column 6: ESID 
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Block Table Listing 


The block table listing is produced if the 
SYM option is specified in the OPTION sta- 
tement. The block table gives the number 
of the program block and the size of the 

corresponding DSA in hexadecimal notation. 


Object Code Listing 
The object code generated for a PL/I source 
program is listed following the offset 


table. The following should be noted: 


1. All addresses and operands are printed 
in hexadecimal notation. 


2. Length specifications in SS instruc- 
ticns are printed modulo 256 if one 
length is specified and modulo 16 if 
two lengths are specified. 


3. Operands of the form Х"ппп" (Б) repre- 
sent generated variables or constants. 
nnn is the displacement and b is the 
base register. 


4. Operands of the form N'nnn', where nnn 
is greater than or equal to 100, repre- 
sent internal names of declared items. 
(These can also be found in the symbol 
table.) 


5. Operands of the form N'nnn', where nnn 
is less than 100, represent internal 
names of PL/I library subroutines. 


6. Labels of the form L'nnn' represent 
internal names of declared or generated 
labels. (Only declared labels can be 
found in the symbol table.) 


7. Operands of the form N'nnn' that appear 
in the instructions BC, BAL, or BCT 
represent internal names of either de- 
clared or generated labels. 


8. А ‘constant’ of the form X'' has the 
same function as tne assembler instruc- 
tion EQU *. 


9. An instruction of the form 
L'nnn' DC A(N'nnn') 


does not represent an address constant 
of itself. L'nnn', in this case, is 
the label of the constant, whereas A( 
N'nnn') refers to an entry point of 
that internal name in the program. For 
example, in the instruction 


L'0104' DC A(N'010 


£i 
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140104" is the label of the constant 
defined by the DC. A(N'0104*) refers 
to an entry point in the program that 
has the internal name. 


10. If a statement is preceded by more than 
one label, all labels are equated to 
the one directly preceding the state- 
ment. For the statement: 

A: В: С: 


Х = У; 
the following code would be generated: 


(for A) 
(for B) 


L' 4 EQU * 
L' ' EQU * 
L' К мус 


11. The number of the source statement for 
hich 


ted at the end cf the specific fart 
of the object text. The statement 
number may appear more than once if the 
respective source statement was broken 
down into logical parts during 
compilation. 


Statement Offset Listing 


If LISTO is specified in the PROCESS card 
the statement numbers and the relative 
location of the end of each statement 
within the object module is printed. LISTO 
overrides LISTX, i.e., if LISTO and LISTX 
are specified, the LISTX option is ignored 
because the object code listing and the 
statement offset listing cannot be printed 
together. 


| Compile-Time Diagnostic Messages 


Errors caused by non-observance of language 
rules or restrictions in the source text 
are detected by the compiler. A diagnostic 
message is printed for each detected error 
following the source listing. For а state- 
ment containing one or more errors, several 
diagnostic messages may be printed. 


The individual. diagnostic error messages 
are listed in Appendix F. 


Object-Time Diagnostic Messages 


Errors that occur during execution of PL/I 
programs cause the printing of an object- 
time diagnostic message. For the format of 
this message and for an explanation of the 
message codes that may be included in the 


i message, refer to Appendix G. 


Appendix A. Conversion Subroutines 


eS ne yee Кан Re т наре зависне a аат 
(No. апа| | | | 
jintern. | : {Reason for Inclusion | | 
| name | Function Jin Object Program [Size(in Bytes) | 
}------- %---------- ---------------------- %------------------------------- %-------------- 1 
1 |Converts input data |F ог E format has appeared | 04 | 
| IJKVECM|from F or E notation to ап jin an input statement | | 
| {internal intermediate form | | | 
}------- }~--------~---------------------- }------------------------------- і%-------- ------4 
| 2 Converts data from an internal |Е or Е format has appeared | 1024 | 
|IJKVCEM]intermediate form to F or E |in an output statement | | 
| |format in preparation for output| | | 
|------- %-------------------------------- %------------------------------- і-------------- 1 
| 3 {Converts data in storage in {Coded fixed decimal expres- | 68 
| {coded fixed decimal form to an |sion appears in an output list | 
(| ТУКУРСМ | претпа1 intermediate form | or | 
| | {Coded fixed decimal data | 
1 | |requires conversion to float- | 
| | ling scale or binary base | 
-------- %-------------------------------- %------------------------------- --------------- 
| 4 [Converts data from an internal |Coded fixed decimal variabie | 214 
| | intermediate form to coded lappears in an input list | 
[IJKVCPM|fixed decimal form | ок | 
| | {Whenever a conversion to | 
| | |coded fixed decimal is required| 
[------- -4-------------------------------- %------------------------------- і-------------- 
| 5 {Converts data stored in [А numeric float variable | 492 
jIJKVFCM|numeric float form to an inter- |арреагѕ in an arithmetic | 
| IJKVNPM|nal intermediate form jexpression or in an output list] 
E-—-—----- -----------------—-----------—-- }~------------------------------ {----------~--- 1 
| 6 {Converts data in an internal [Numeric float variable | 680 | 
{intermediate form to internal lappears in an input list | | 
[IJKVCFM|numeric float | or { | 
! IJKVPNM| lappears on the left side of an | ] 
| | lassignment symbol 1 | 
ļ------- 4--~------~---------------------- ——Á—— ——— 1 
7 {Converts data іп storage in | integer binary fixed expres- | 60 | 
|ІЈКУВСМ | Ғіхеа binary form to ап inter- {sion appears in an output list | | 
| |пај intermediate form | | | 
|------- %-------------------------------- %------------------------------- ф-------------- 1 
і 8 {Converts data іп an internal |Binary fixed variable appears | 238 | 
| IJKVCBM|intermediate form to fixed lin an input list | | 
| [binary form NE. | | 
=== 4-------------------------------- %------------------------------- %-------------- 1 
| 9 |Converts data from coded float- |Coded float expression ок non- | 3202 | 
| jing point form (short or long linteger binary expression? | | 
| IJKVTCM|word) to an internal intermedi- |appears in an output list | | 
| [асе form | or | | 
| | |Coded float or non-integer | | 
| | | fixed binary expression is | | 
| | |аввідпей to a numeric decimal | | 
| | {variable ок a coded fixed | | 
| | |Аесіпа1 variable | | 
|------- }~--------~----------------------}------------------------------- һ-------------- 1 
| 10 {Converts data from an internal  |Coded float variable appears | 3922 | 
| ТЈКУСТМ| intermediate form to coded jin an input list | | 
| |floating form (short or long) | Ок | | 
| | [Conversion to coded float is | | 
| | jrequired from either numeric | i 
| | {даса or coded fixed decimal | | 
Баласы a ce БЕ T as a ја а m P — ————— —— J 
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et ee Se дија ина a шешшш шыш т 
| No. and| | | 
jintern. | |Reason for Inclusion | 
jname 12. jin Object Program {51 
-------4-------------------------------- СЕЕ ас БАБЕ een а 
11% [Converts data from numeric [Numeric fixed decimal number 15) 

| IJKVNPM|fixed form to coded fixed [used in an arithmetic | 
| |decimal form? Дехргеввіоп or in an output 115+ | 
------- %-------------------------------- %------------------------------- + 
| 125 |СопуекЊ5 data from coded fixed |Numeric fixed decimal number | 
| {decimal form to numeric fixed {appears on the left of an i 
| IJKVPNM| decimal form? {assignment symbol or in an i 
| | jinput list | 
 ------ і-------------------------------- І------------------------------- + 
| 13 |Converts from numeric fixed |Numeric sterling field is used | 
|IJKVRPM|sterling to coded fixed decimal |in an arithmetic expression or | 
| | Jin an output list | 
E------- 4-------------------------------- %------------------------------- + 
| 15 |Converts from coded fixed |Numeric sterling number | 
| [decimal to numeric fixed lappears on the left of ап ! 
| ISKVPRM{ sterling lassignment symbol or in ап i 
| | Jinput list | 
[------- 4-------------------------------- %------------------------------- + 
| 15 {Converts character string to [Conversion to bit string from | 
| |bit string |character string form is | 
1 IJKVGIM| |required - | 
------- 5-------------------------------- І------------------------------- + 
i 16 {Converts bit string to cnaracter|Conversion to character | 
| | скапа |string from bit string is | 
| IJKVIGM| [required or a bit-string | 
| | jexpression appears in ап | 
1 | [output list | 
ļ------- 4-------------------------------- %------------------------------- + 
| 17 {Converts fixed binary data to |Conversion from binary | 
[iJKVBTM|coded ficat |fixed to coded float is | 
| | | required | 
}------- }~----------~-------------------- }-~----------------------------- + 
| 18 |Converts coded float data to |Conversion from coded | 
| IHKVTBMI fixed binary jfloat to fixed binary is i 
| | [required | 
1 шошала ыы PES 1 


use of апу of the built-in functions 


“Also requires a table of 128 bytes. 


3Any picture data 


“Subroutine 11 is a subset of sukrouti 


9ü 


іТһе only way for a non-integer fixed binary number to appear is if the result of a 
division of one fixed binary integer by another results in a non-integral value or by 


PRECISION, BINARY, or FIXED. 


Subroutines 9 and 10 require this t 


subroutines appear, the table is in storage only once. 


represented by [9...](V][9...1] [T] is converted to and from coded 
fixed decimal by a single in-line instruction and requires no subroutines. 


ne 5. If 5 is present, 11 is nct. 


а а -À aM M НИ 


P. 


able. If both 


Appendix B. Possible Combinations of Data Conversions 


` | FORMAT ITEMS | ITEMS 


1,4, 1,4, 
Ti је | inl Fw nen ја 

1,4, 1,4, 
МР | NP | NP | NP 11,4 МР (| МР | NP | NP 

12 14 
af fo САСА са са са [of [oe 
rr fo rb fo rs ее 
on sen [Eo n Dr pote pot De Dr nn] 
monon алые мә е јеле n Гө м 





















NUMERIC STERLING 


NUMERIC FIXED DECIMAL 
NUMERIC FLOAT 


CODED FIXED DECIMAL 





CHARACTER STRING 





CODED FLOAT 





FIXED BINARY 






BIT STRING 
POINTER 


LABEL 





FORMAT ITEMS 








ba еа ola «ele е 
aa fe ЧЕЗ ЖИЛ [a Ts fw 
тшшн E Ue 
CHARACTER STRING 
eme for foe [к је а jer pen p n fw | 
m prebere са са са са n n pn са сиса 
Cr ehe ee one fe en e n |е ке А 


Legend: NP - Not permitted. 










IL. - Done directly in-line; no subroutine required. 
X - Contained as part of edit-directed ИО package to be discussed in I/O chapter. 


The numbers indicate the applicable conversion subroutines listed in Appendix A. 
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Appendix C. Built-In Functions, Pseudo-Variables, And Other 


Implied Subroutine Calls 


Ces ear SS eee оа > Pores ee ee eee шасы рони cec ee ee 1 
| | | | | Size | | 
| Мо | Name | Argument (s) |internal | in [Restrictions and Additional | 
| | | |Мате(5) | Bytes [Information | 
= и 4------------------- %--------- 1-------- %------------------------------ ! 
1 [bit string |ТЈКЕВКА | 292 | ! 
{ | | | IJKRBKB| [Result must not exceed max. | 
| 19 1 REPEAT Ы------------------ і--------- 1-------- {string length | 
| | [character string |IJKRGKM | 84 | | 
о +--------ф—-------{—---——-------------------————--- 1 
120| [bit string ІІЗКЕВІМ | 292 | | 
|--| INDEX }------------------- t--------- %-------- 1 | 
1214 [character string |IJKRGIM | 108 | | 
---%-------------- %------------------ }--------- -------- %------------------------------ 1 
122|BOOL | IIJKRBBM | 424 | | 
р--1-------------- 4------------------- %---------4-------- %------------------------------ 1 
| {character string jin-line | == | | 
|23 |SUBSTR -------------------4---------4--------4 | 
{ | [bit string |IJKVIIM | 180 | | 
}--4+--------------}-------~----------- %---------і-------- %------------------------------ 1 
| 24| UNSPEC |bit string |lin-line | -- Argument must not exceed | 
К ! | 18 bytes | 
[--4-------------- 4------------------- %--------- 4-------- %------------------------------ 1 
| 26| DATE | [IJKSDTM | 58 | | 
}--+-------------- 1------------------- ---------і-------- ------------------------------ 1 
|27 |STRING | |іп-1іпе | ај | 
[--4-------------- $------------------- {--------- %-------- %------------------------------ 1 
| | |fixed binary |IJKRUBM | 148 | | 
|28 | ROUND {fixed decimal lin-line | ==". | 
| | --------------------4---------і-------- 1 | 
| | | Е1оа+ Jan-line | жаа,” | | 
}--}--------------}-------------------}--------- 4-------- ------------------------------ 1 
1291 lall fixed binary IIJKRMBX | 278  ! | 
| | | | IJKRMBN| | | 
|--] ҒЫ------------------і--------- -------- {Argument with differing data | 
{30 | [ali fixed decimal |ІЈКЕМРХ | 386 |attributes causes some of the | 
| | | | IJKRMPN| {data to be converted to one of | 
Е--4 MAX/MIN p------------------- T--------- I-------- {the four permissible types. | 
{31| jall short float |IJKRMSX | 132 |The choice depends on the | 
| | | | IJKRMSN| {element of the highest | 
|--] E------------------- I-------- -—------]stringency level. | 
1321 [а11 long float |IJKRMLX | 172 | | 
| | | | IJKRMLN| | | 
--%-------------- 1------------------- 4---------і-------- І------------------------------- 1 
{33 |SIGN | jin-line | -- | | 
р--4-------------- 1------------------- %--------- %-------- 41------------------------------ 1 
| | |fixed binary {IJKRWBM | 356 | | 
| | }------------------- %--------- %-------- 1 | 
I Oo ifixed decimal |ХТОЕВИРМ | 580 {in-line code for TRUNC of | 
| 34] TRUNC -------------- -----4--------- 4-------- {fixed decimal data. IJKRWPM is| 
| +t {short float |IJKRWSM | 236 |used only for FLOOR and CEIL. | 
КИ к----------- 4--------- %-------- 1 | 
| | |long float |IJKRWLM | 244 | | 
---4----------- ---4------------------- 4--------- 1--------1------------------------------ 1 
| 35| FLOOR |Сопғаіпей in TRUNC. Entry points are IJKRT.. | 
P: CÓ H———— € 1 
|36 [CEIL [Contained in TRUNC. Entry points are IJKRV.. | 
EN hee А ПН Жаналы ыла ac — — —— M ——— Ене ич Еи DPA былышы ан J 
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Se Ge re ады ыа quU quem pepe eme C pq cre 1 
|| | | | Size | a 

| No| Name | Argument (5) |Internal | in |Restrictions and Additional | 
| | | | ате (5) | Bytes {Information | 
о --------- ------------------------------ 1 
| | {fixed binary | IJKRSBM | 200 | | 
ІІ Н----->------і--------- 4-------- 1 | 
| | |fixed decimal |IJKRSPM | 265 | | 
[37|MOD | |  [p-------------------1--------- +-------- 4 | 
| | {Short float |IJKRSSM | 184 | | 
ІІ -Н--------------і--------- 1-------- 1 | 
| | |1опа float |IJKRSLM | 192 | | 
p--}--------------}-------------------}---------} —————————— 
|38 | PRECISION | lin-line | == | | 
--4-------------- І-------------------1---------1--------і------------------------------1 
| 39] HIGH | jin-line | же |] | 
}-—}-----~------—— %------------------- І---------1-------- і------------------------------ 1 
[40|LOW | {in-line | em 4 | 


р--4--------------і-------------------4---------4--------4------------------------------і 


| 41] FIXED | | | jAttributes of arguments must | 
~—}-------------- 3 | | [permit conversion specified бу | 
|42 | FLOAT | | | |built-in function name. No | 
--4-------------- 1 | ! |subroutine is called if | 
| 331 BINARY | | | jargument is already in re- | 
-—+-------------- 4 | | {quested form. Appropriate | 
|44 | DECIMAL | | ! jsubroutines 1-18 аге used. | 
--4-------------- 1 | | |Споісе depends on attributes | 
| 45] BIT l | | lof argument and built-in | 
--}+------------—-- 1 | | |function name. (See | 
|46 | CHAR | | | {Appendix А. | 
[--+4-------------- 4------------------- }--------- 4--------і------------------------------ 1 
! 471 SUM ! lin-line | -- | | 
———————________——м———_—_______= 
(48 | PROD | lin-line | -- | | 
--4-------------- І-------------------і4---------і--------1------------------------------1 
| $9] ALL | jin-line | == | | 
--%-------------- %------------------- %--------- %-------- і------------------------------ 1 
[50 [ANY | jin-line | == | | 
--4-------------- 1------------------- %--------- 4-------- %------------------------------ 1 
| 51{АВЅ | lin-line | -- | | 
|~-}-------------- {--------~---------- +--------- %--------4------------------------------ 1 
1 | lexpr.1 fixed binary|IJKREBM | 92 |fResult] < 231-1 | 
| 521 lexpr.2 integer | | | | 
| | | constant | | | (ІНЕХІВ) 1 
|--1 р-------------------- %--------- %-------- 41------------------------------ 1 
| | lexpr.1 fixed deci- |IJKREPM | 140 |[Result| < 1015-1 | 
(53 |тај, expr.2 integer| | | | 
| |] [constant | | | (IHEXID) | 
= Пи ки }--------- %-------- %------------------------------ 4 
| | |јехрк.1 short float,|IJKRESM | 144 |]Result] < 7.2x107£ | 
{ 54] lexpr.2 fixed binary| | | | 
| | [With scale factor 0| | | (IHEXIS) | 
[--lexpr.1**expr.2|[------------------- I--------- lI-------- T---—--------------------------- 1 
| | lexpr.1 long float, |IJKRELM | 152 ||Еевча1%| < 7.2x1075 | 
1551 lexpr.2 fixed binary| | | | 
| | jwith scale factor 0| | | (IHEXIL) | 
I--1 -------------------- і--------- %-------- І----------------------------- 1 
| | jexpr.1 short float | ТЈКВХОА | 152 |Expr.1 > 0; expr.2 not integer| 
| 56| | [ | (60,62) *|constant or fixed binary; | 
| | | 1 | Į {result| < 7.2x1075 | 
| | | | | | (IHEXXS) | 
E—1 }------------------- +---~----- +-------- }------------------------------ 1 
{ | |ехрг.1 long float |IJKRXLM | 168 |Expr.1 > 0; expr.2 not integer| 
| 57] | | | (61,63)*|constant or fixed binary; | 
| | | | | jixesuitj < 7.2xi075 | 
| | | | | | (IHEXXL) | 
а Бала eer А ла ылады был А БРЕ SNR as epp Кыдыры ыш с шшш Жы аланы абы са але суды са ааа NR J 
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| 
No| Name 


о 


Е 

| 

| 

| {ATAN(X) 

| |ATAN(Y,X) 
Е--ЈАТАМО (X) 
| [ATAND(Y,X) 
| 

| 

| 
r 
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—À «әле же «n «ше ee ee n по 


— MÀ M — — «әле «е-е — o M — ce 


Н-------------- 


|long float 


үш мит өне” À чени се "€ а» чеш чаще OEY чие «хе um t =“ “ · 


Internal 
Name(s) 


IJKQQLM 


IJKQASM 


H 
cy 


IJKQLLA 
IJKQLLB| 
IJKQLLC| 

IJKQSSD | 
IJKQSSB| 
IJKOSSC| 
IJKQSSA| 

IJKQSLD | 
IJKOSLB| 
IJKOSLC| 
IJKQSLA| 


і 
| 
і 
t 
! 
і 
| 
і 
i 
+ 


IJKQTSB | 


4--------------------------------------------------------------- 


| 
| 
+ 
IJKQTLB | 
IJKQTLA| 

| 
--------- + 
IJKQNSD | 
IJKQNSB| 
IJKQNSC| 
IJKQNSA| 
IJKQNLD | 
IJKQNLB| 
IJKQNLC| 
IJKQNLA| 


Mercer qup eee нане пиј m menm eeu уе алдый Em mem 
Size | | 
in jRestrictions and Additional | 
Bytes [Information ! 
-------- %------------------------------1 
176 |Argument = 0 ос 2.4х10-78 < | 
[argument s 7.2x1075 | 
| (ІНЕ505) | 
ЕЕС ————À 
160 [Argument = 0 or 2.4х10- | 
Jargument < 7.2x1075 | 
| (1НЕ5501) | 
——————— ама 4 
232 |Argument < 174.6 | 
| (ІНЕЕХ5) | 
-------- %------------------------------1 
456 |Argument < 174.6 | 
| (IHEEXL) | 
— И S ШОСЕ ШБИЕБИМЫЈРУИНРИНЕНРОНАИННОРНОНЮН ЧЫНА 
272  |Argument < 7.2x1075 { 
| (THELNS) i 
| | 
титана У јан Re eem ccce ecd 
384  |Argument < 7.2x1075 | 
| (IHELNL) | 
| | 
piece Ерин една виа венски a 
304 ||Radian Arg| < 2*?xpi 
| [Degree Arg] < 228x180 
| 
| (IHESNS) 
RUNE ——————— 
416 ||Radian Arg| < 259хрі 
| {Degree Arg] < 250x180 
| 
| CIHESNL) 
mein lici %------------------------------ 
280 ||Radian Ага| < 2*8xpi 
| |Бедгее Arg| < 218х180 
| (IHETNS) 
— —À— В — еа ран ран ра пои ee eee 
360 {||Radian Arg| < 259хрі 
| | Degree Arg| < 250x180 
| (IHETNL) 
ашыта ы Швозасввасаолымсасыз анды M 
400 [0 < |Х,Ү| < 7.2х1075 
| 
| 
| (IHEATS) 
ANS —Ó—— € ere eee ee eee 
536 [0 < |Х,Ү| < 7.2х1075 
| 
| 
| (IHEATL) 
— ÁHÁ— 4------------------------------ 
208 |(|Ага| s 174.6 
(609% | (IHESHS) 
288 | |Arg| < 174.6 
(61)*] (IHESHL) 
UNTER 4-------------------------.---- 
212 ||Агд| < 7.2х1075 
(60)*| (IHETHS) 
—— +---------—--------—-—----------- 


288 {{[Агд| < 7.2х1075 


(61)*| (IHETHL) 


елімі ea aa ue. a ee ee oS сасе она quoe Men MT 1 
i | | | | біле | m » | 
| No | Name | Argument (s) [Internal | in [Restrictions and Additional l 
| | | | Чате(5) | Bytes [Information | 
}--+-------------- 4-------------------}--------- 4-------- 1------------------------------ 1 
| 741 |short float |IJKOQBSA | 208 ||Агд| < 1 | 
| | | | | (62)*| (IHEHTS) | 
[——1АТАНН ----------------- %--------- %-------- 4------------------------------ 1 
| 751 |1опа float {IJKQBLA | 280 ||[Агд| < 1 | 
| | | | | (632% | (IHEHTL) | 
}--+-------------- 4----~-------------- і--------- 4--------і------------------------------ 1 
| 761 [short float |IJKQRSB | 408 ||Arg| < 7.62х1037 | 
| | | | IJKQRSA| (60)* | (IJEEFL) | 
[--{ЕВЕ/ЕВЕС Ы------------------ +--------- +-------- +------------------------------ 1 
| 77] {long float |IJKORLP | 776 ||Ага| < 7.62x1037 | 
| | | | IJKQRLA| (61)% | (IHEEFL) | 
+_-—————--————- 4------------------- 1---------1-------- %------------------------------1 
| 78] ADDR | |lin-line | ==.) | 
}--}-------------- 4~------------------ 1---------і1-------- ғ ------------------------------ 1 
179 | NULL | |in-line | oa, d | 
}--4-------------- 1------------------- па }~----------------------------- 1 
| 80| ADD | Jin-line | me. x | 
[--+-------------- 4------------------- %---------і-------- ------------------------------- 1 
[91]DIVIDE | lin-line | =“. | | 
}--4---~---------- 4------------------- 1---------1-------- 4------------------------------ 1 
| 83211 MULTIPLY | Jin-line | -- | | 
ша сұ ыда алса зала дама i ere ETE T UEM go HEN gb et IE I занима вајн За НКЕ емен нт нет они 4 
|*The subroutine whose number is given in parentheses is also used by | 
{ this routine. | 
Ua олады Se ——— да ыла сласы ыы ышын 1 
(OD ee re Ар а CREE an eRe Tie tenant hag pd ee eee ee ae ae ae 1 
| BUILT-IN FUNCTIONS CONTAINED IN THE FULL-SET LANGUAGE, BUT NOT IMPLEMENTED | 
| IN THE D-LEVEL COMPILER | 
fanaa nnn nnn nnn nnn nnn nn nnn nnn nn nnn nn nn nn ne | 
| ALLOCATION DATAFIELD LBOUND ONCHAR CNS CURCE | 
| COMPLETION DIM LENGTH ONCODE POINTER | 
| COMPLEX EMPTY LINENO ONC OUNT PCLY | 
| CONJG HBOUND NULLO ONFILE PRIORITY | 
| COUNT IMAG OFFSET ONKEY REAL | 
| ONLOC STATUS | 
а пе ——————— ee ee ee мосы Sa ЕНЕНЕ АЕР a eae See See 3 
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Appendiz D. I/O Subroutines 


pere не aaa ice orcas Loo er ттлтне Mee E meum а НА оннан ана: gem 1 
| [ |Internal | {Reason for Inclusion in E | 
| Number | Мате {Name(s} |Description јОојеск Program | Bytes | 
f------ +------------- 4--------- 4--------------------- 4---------------------------- 1----- 1 
і 1 | Pagesize |LJKTPSM I!Controls number of |The PAGESIZE option appears | 72 | 
i | | jlines on printed page|in an OPEN statement | | 
p-ta тезеннән q pe НЕ ee E ee Аби +-—=======--——==== з= roomate +----- 1 
| 2* |Stream | IJKTSTM | Constructs a logical [Always present for files | 674% | 
| [Constructor I| IJKTSTN|stream from physical |declared with the STREAM | | 
| | | IJKTSTR|record and vice versa|attribute | | 
t-~~---}-----------~- 4-~--~----}------------------=--}---------------------------- -----і 
| 31 [Stream | ТУКТЕСМ [Same as Stream Con- {Always present for files |876% | 
| |ConstructorII| IJKTSTM|structor I except {with the STREAM attribute, | | 
| | | idKTSTNj that LINE or COLUMN jwith format list containing | | 
Ц | | IJKTSTR|is used |LINE or COLUMN, or with PUT | | 
| | | | |statement containing the | | 
| | | | | LINE option | | 
|------ %------------- i-—------ E----------------——---- +----~----------------------- ---- 
| 42 |Format I |IJKTFDM [Associates а variable|GET/PUT FILE EDIT statement | 480 | 
| | | with its editing |арреагв in source program | | 
| | 1 descriptor І | 
----- %------------- 41---------і------------- -------- І---------------------------- +-----4 
| 52 {Format II |IJKTGDi |Same as Format I |GET/PUT STRING EDIT state- |414 | 
| | | IJKTGDO| |ment appears in source | | 
| | | | | program | | 
}------ 4------------- 1---------4---------------------4---------------------------- ----1 
| 6 | Consecutive | TIKTCBM |Transmits data кол | READ/WRITE/LOCATE/REWRITE [552* | 
| | Buffered | {from the buffer from/|statement is used for а | | 
| | Transmitter | {со a record variable |consecutive buffered file | | 
| | | | for consec. files | | | 
-Р------І------------- і--------- --------------------- 4---------------------------- %----і 
| 7 |Consecutive | IJKTCUM [oranes data | READ/WRITE/REWRITE statement| 252% | 
i j Unbuffered i |directiy from/to an jis used for a consecutive ! | 
| [Transmitter | jexternal device J|unbuffered file | | 
| | | [directly to/from a | | | 
| 1 | |record variable | | | 
}--~~--4~------------- І--------- Ғ---------------------і---------------------------- -----і 
| 8 {Regional {IJKTRGM |Transmits data to and|READ/WRITE statement is иѕед | 398. | 
| [Transmitter | {from a regional de- j|for a regional file | | 
| | | |уісе via a hidden | | | 
| | | [buffer | | | 
}------ ғ------------ 1--------- %---------------- -----І---------------------------- ----і 
| 9 | Regional |IJKTXRM [Determines extent of |А regional file exists |356 | 
| {Extent I | {regional file at open|for 2311 or 2314 | | 
| | | {time and serves as | | | 
| | | |file addressing rou- | | | 
| | | [tine to subroutine 8 | | | 
------- 4------------- 4--------- %--------------------- 4---------------------------- 1-----4 
| 10 | Regional. |IJKTXRN [Same ав 9 {А regional file exists {378 | 
| [Extent II | | {Ток 2321 | | 
}--~---}------------- 4--------- %--------------------- %---------------------------- %----1 
| 11 | Indexed |IJKTSIM |Transmits data to/ |READ/WRITE statement is used|652 | 
| [Sequential | | from indexed data |Еок indexed sequential file | | 
| {Transmitter | |sets in seq. access | | | 
| | | | access | | | 
р------4------------- %--------- ІҺ--------------------- І---------------------------- t----- 
| 12 | Indexed |IJKTDIM |Transmits data кол |READ/WRITE statement is оѕед| 540 | 
| | Direct | | from indexed data jfor indexed direct file | | 
| | Transmitter | {sets in direct ассе55 | | | 
boos pM — — Е P ie ди Sic reer eh нышы TT би ре а amen сы meee Жасыра 1 
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катыр исык Se E лага ои бо SM ee me ETIN C Tro pem eR ко quem 1 
|internal | [Reason for Inclusion in | 

| Number | Name |Мате(5) |Description |Object Program |Bytes | 

|------ ј- – 1--------------------- І---------------------------- %----1 

| 13 {Display | IJKTDPD [Handles DISPLAY {DISPLAY statement appears (184 | 

| | | IJKTDPR[statement and REPLY |іп source program | 

| | | Joption | | 

[------ +----------—-- $---------}---------------------+---------------------------- %----1 

| 44  |LIST-I/O |IJKTLIM |Нап41ев list-directed|GET [FILE/STRING] LIST 11068 | 

| | ! | input | | 

}------+------------- ——— — —— — — %----4 

|15 (|І15Т-1/0 |IJKTLOM |Handles list-directed|PUT [FILE/STRING] LIST [1076 | 

| | | | output | | 

|------ асоцирана каје doc Жаз аз ET TE EON жалшысы ашы ыы ao en EI I sssi 1 

| 

| 1subroutines 2 and 3 are never both used in any object program. 

| 

| Requires а 200-byte format scanner. May be required by either subroutine 4 or 5, 

| but is present only once. 

| 

| *Requires an additional subroutine of 100 bytes. May be required by several 

| subroutines but is present only once. 

| 

-————Á—————————————————————————————— ———————— НИЕ 
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rp 
с> 


тәдепт atta әдет prepueqs 


Field 


File Label Number 


| 





File Identifier 


[=] Generation 
1 Number 


—— Ses 
Lobel Version 
Identifier Number of 

Generation 


The standard tape file labe! format and contents are as follows: 






DESCRIPTION 























NAME AND LENGTH 
Identifies the type of label 

HDR = Header -- beginning of a data file 

EOF = End of File -- end of а set of data 

ЕОУ- End of Volume -- end of the physical reel 


LABEL IDENTIFIER 
3 bytes, EBCDIC 








Uniquely identifies the entire file, may contain only 


FILE IDENTIFIER 
printable choracters. 


17 bytes, EBCDIC 
Uniquely: identifies a file/volume relationship. This 
field is identical to the Volume Serial Number in the 
volume label of the first or only volume of а multi- 
volume file or a multi-file set. This field will normally 
be numeric (000001 to 999999) but may contain any six 
alphameric characters. 





FILE SERIAL NUMBER 
6 bytes, EBCDIC 





VOLUME SEQUENCE NUMBER - 
4 bytes 

















Indicates the order of a volume in a given file or 
multi-file set. The first must be numbered 0001 and 
subtequent numbers must be in proper numeric sequence. 

















FILE SEQUENCE NUMBER 
4 bytes 


Assigns numeric sequence to a file within © | multi-file 


set. The nnt must be numbered 0001. 











7. GENERATION NUMBER. 











Uniquely identifies the various editions of the file. 
4 bytes May be from 0001 to 9999 in proper numeric sequence. 
БЕ 8 ЕЯ а т. = шыны ME 
8. VERSION NUMBER OF Indicates the version of a generation of a file. 


GENERATION 2 bytes 





i ——MM— 


Creation 


File Security 


NAME AND LENGTH 


CREATION DATE 
6 6 bytes 


EXPIRATION DATE 
6 bytes 


FILE SECURITY 
1 byte 


BLOCK COUNT 
6 bytes 


SYSTEM CODE 
13 bytes 





RESERVED 
7 bytes 


— 


= 


| 


Indicates the year and the day of the year that the 


Indicates the year and the day of the year when the 


Indicates security status us of the file, - 


Uniquely identifies the programming system, 


Reserved. Should be recorded as blanks. 















DESCRIPTION 





file was creoted: 





Position Code Meaning 

1 blank none 

2-3 00 - 99 Year 

4-6 001 - 366 Day of Year 


(e.g., January 31, 1965 would be entered as 65031) 





file may become a scratch tape. The format of this 
field is identical to Field 9. On a mulij-file reel, 
processed sequentially al! files are considered to ex- 
pire on the same day. 





0 = no securify protection 

= security protection. Additional identification of 
the file is réquired before it can be processed. 
_ (Not used by DOS / TOS) = 


Indicates the number of data а blocks written on the file 
from the last header label to the first trailer label ex- 
clusive of tape marks. Count does по? include check-: 

point records. This field is used іп Trailer Labels. 














З xipueddy 


зјешхло J әде" әү 


szewz0g тәдет әттд ^X xtpueddy 


cot 


(€ JO т злед) Т зешлоя *тәдет отта авуа pzepueqs 


Field 



















Reserved 


= 
— 
— 
о 
_ 
~ 
— 


Option Codes ко 





Block Length 
Record 
th 


Record Format 











_ 


Key Location © 


19 










Last 
Record 
Pointer 


Secondary 
Allocation 


* Data Set Extent Extent 


Indicators Type Sequence 
Indicator Number 


Format 1: This format is common to all data files on Direct Access Storage Devices. 


FIELD 








NAME AND LENGTH 


FILE NAME 
44 bytes, alphameric 
EBCDIC 





DESCRIPTION 
This field serves as the key portion of the file label. 


Each file must have a unique file name. Duplication of 
file name will cause retrieval errors. The file name can 
consist of tree sections: 


1. File ID is an alphameric name assigned by the user 
and identifies the file. Can be 1-35 bytes if gene- 
ration and version numbers are used, or 1 - 44 bytes 
if they are not used. 


2. Generation Number. If used, this field is separated 
from File ID by a period. It has the format Gnnnn, 
where G identifies the field as the generation number 
and nnnn (in decimal) identifies the generation of 
the file, 


3. Version Number of Generation. If used, this section 
immediately follows the generation number and has. 
the format Vnn, where V identifies the field as the 
version of generation number and nn (in decimal) 
identifies the version of generation of the file. 





Note: The Disk Operation System compares the entire 
field against the file-ID given in the DLBL statement , 
The generation and version numbers are treated 
differently by Operating System /360. 





EXTENT COUNT 


ў 
5 
| 
B 


ми 


Е Format Extent _| Bytes used in last 


Identifier Count block of directory 





33 













Pointer 


FIELD NAME AND LENGTH DESCRIPTION 








The remaining fields comprise the DATA portion of the file label: 


1 = Format 1 








FILE SERIAL NUMBER Uniquely identifies a file/volume relationship. It is 
6 bytes, alphameric EBCDIC identical to the Volume Serial Number of the first or 
only volume of a multi-volume file. 













Indicates the order of a volume relative to the first 


VOLUME SEQUENCE NUMBER 
volume on which the data file, resides. 


2 bytes, binary 









CREATION DATE 
3 bytes, discontinuous binary 









Indicates the year and the day of the year the file was 
created. It is of the form YDD, where Y signifies the 
year (0-99) and DD the day of the year (1 - 366), 





















EXPIRATION DATE 
3 bytes, discontinuous binary 


Indicates the year and the day of the year the file 
may be deleted. The form of this field is identical to 
that of Field 5. 


Contains a count of the number of extents for this file 
on this volume. If user labels are used, the count does 
not include the user label track. This field is maintained 
by the Disk Operating System programs. 


пот 


(Є 20 г 3284) т зешлод 'тадет әттія asvd рлхериезс 


FIELO 


78 


7С 


10. 


12. 


NAME AND LENGTH 


BYTES USED IN LAST BLOCK - 


OF DIRECTORY 
1 byte, binary 


SPARE 
1 byte 


SYSTEM CODE 
13 bytes 


RESERVED 
7 bytes 


FILE TYPE 
2 bytes 


RECORD FORMAT 
1 byte 


OPTION CODES 
1 byte 


















DESCRIPTION NAME AND LENGTH 


Used by Operating System /360 only for partitioned BLOCK LENGTH 
(library Structure) dota sets. Not шеа by the Disk 2 bytes, binary 


Operating System. : 
aes eee РЕН RECORD LENGTH 
2 bytes. binary 


KEY LENGTH 
Thyte, binary 


KEY LOCATION 

2 bytes, binary 

DATA SET INDICATORS 
SS 1 byte 

The contents of this field uniquely identify the type of 

data files 








Reserved. 


Uniquely identifies the programming system. The churac- 
ter codes that can be used in this field are limited to 
0-9, A-Z, or blanks. 


ip ти пи 


Reserved 





Hex 4000 = Consecutive organization 

Hex 2000 = Direct-access organization 

Hex 8000 = indexed-sequential organization 

Hex 0200 = Library organization 

Hex 0000 = Organization not defined in the file label. 





The contents of this field indicate the type of records 
contained іп the files 


Bit 





Position Content Meaning 
0 апа 1 01 Уне length records SECONDARY ALLOCATION 
10 Fixed length records 4 bytes, binary 
п Undefined format 
2 0 No track overflow 
1 File is organized using 
track overflow (Opera- 
ting System /360 only) 
3 0 Unblocked racords 
! Blocked records LAST RECORD POINTER 
4 0 No truncoted records 5 bytes, discontinuous binary 
1 Truncated records in file 
5 and 6 0 Control character ASA 
code 
10 Control character T T. 
machine code 
00 Control character riot 
stated невина роса 
7 о Records have по keys i TYPE INDICATOR 
1 Récords are written 
with keys. 


Bits within this field are used to indicate various options 
used in building the file. 


Bit 


0 = If on, indicates data file was created using Write 
Validity Check. 


1-7 = unused 


Indicates the block langth for fixed length records or 
maximum block size for variable length blocks. 


Indicates the length of the key portion of the data 
records in the file. 


| Bits within this field are used to indicate the following: 











many bytes, tracks or cylinders are requested. 


binary zeros, the last record pointer does not apply. 


Indicates the type of extent-with which tha following 


Indexed Sequential file. 


MI SR “HE am ибн Har жала; 


DESCRIPTION 



















Indicates the record length for fixed length records or 
the maximum record length for variable length records. 








Indicates the high order posrion of the data record. 





Bit 


0 If on, indicates that this is the lust volume on which 
this file normally resides. This bit is usad by the 
Disk Operating System 

If on, indicates that the data set described by this 
file must remain іг the some absolute location on 
thè direct access devico. 


if on, Indicates that Block Length. must always be 
a multiple of 7 bytes. 


ю 


3 If on, indicates that this data file ist security pro- 
tected, a password must be provided In order to 
access it. 


4-7 Spare. Reserved for future use. 
Indicates the omount of storage to be requested for this 
data file at End of Extent. This field 15 used Бу Opsra- 
ting System /360 only. It is not used by the Disk Ope- 
rating System routines. The first byte of this field i 
an indication of the type of allocation request. Hex 
code C2 (EBCDIC B) blocks (physical records), hex 

code ЕЗ (EBCDIC T) indicates tracks, and hex code: 
C3 (EBCDIC C) indicates cylinders. The next three 

bytes of this field is a binary number indicating how 














Points to the lost record written In сі sequential or 
partition-organization data set. The formot is TTRLL, 
where TT is the relative address of the track сома!- . 
ning the last record, R 15 the ID of the last record, 
and LL is the number of bytes remaining on the track 
following the last record, If the entire fleld contains 











Reserved 





fields are associated: 
HEX CODE 
00 Next three fields do not Indicate any extent. 


01 Prime area (Indexed Sequantial); or Consecutive 
area, etc., (i.e., the extent containing the 
user’s data records.) 


Overflow area of an Indexed Sequential file. 
Cylinder Index or master Index area of an 


ев 





"я хтриоаду 


S3eu1og Teqel atta 


SOT 
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FIELD NAME AND LENGTH DESCRIPTION FIELD 


40 User label track area. 


8n Shared cylinder indicator, where n=1, 2, or 4. 





25-28. 


МАМЕ AND LENGTH 


ADDITIONAL EXTENT 


10 bytes 


DESCRIPTION 


These fields have the same format as the fields 21 - 24 
above. 











22. EXTENT SEQUENCE NUMBER Indicates the extent sequence in a multi-extent file. 
1 byte, binary 
23. LOWER LIMIT The cylinder and the track address specifying the 
4 bytes, discontinuous binary starting point (lower limit) of this extent component. 
This field has the format CCHH. 
24. UPPER LIMIT The cylinder and the track address specifying the ending 


voint (upper limit) of this extent component. This field 
has the format CCHH. 


29-32. 


33. 


ADDITIONAL EXTENT 
10 bytes 


POINTER ТО NEXT FILE LABEL 


WITHIN THIS LABEL SET 
5 bytes, discontinuous binary 





These fields have the same format as the fields 21-24 
above. 








The address (format CCHHR) of a continuation label if 
needed to further describe the file. If field 10 indicates 
Indexed Sequential organization, this field will point 
to a Format 2 file label within this label set, Other- 
wise, it points to a Format 3 file label, and then only 
if the file contains more than three extent segments. 
This field contains all binary zeros if no additional 

file label is pointed to. 


ULT BLCeBLS Таор Тиј м | а ССИ СРЕ 











Field Name Description 
1. DLBL-EXTENT Indicator Х'80' = Next EXTENT on new pack. 
Х'40' = Last EXTENT 
Х'20' = Bypass EXTENT (SD), or number of EXTENTS (DA or ISFMS). 
X'10" = New value on same unit. 
Х'08' = EXTENT limits omitted. 
Х'04' = EXTENT converted to DASD address. 
2. Filename 
3. DA/IS Switch Same as field 1 except that only bits 4 and 5 are used for DA or ISFMS. 
4. File ID File identifier including зепегаНоп and version numbers. 
If field is missing on DLBL card, filename padded with blanks is inserted. 
5. Format ID Numeric 1 is inserted. 
6. File Seria! Number Volume serial number from first EXTENT. 
7. Volume Sequence Number Always initialized to Х'0001'. 
8. Creation Date Initialized with 3 bytes of X!00!. 
9. Expiration Date If date is in the form YYDDD, it is converted to YDD. 
If dote is in retention period form, 1 to 4 characters, the field is padded with 
binary zeros. 
10. Reserved The retention period, if specified, is converted to а 2-Буѓе number and 
inserted in this field. 
її Open Code DLBL type: 
5 = Sequential 
D = Direct Access 
С or Е = Indexed Sequential File Management System 
12. System Code Initialized to contain: 
DOS/360 VER 3, This field is not processed by DOS 
13. Volume Serial Number Volume serial number for EXTENT. 
14. ЕХТЕМТ-Туре Same codes as in Format 1 label: 
X'00' = Next three fields do not indicate any extent. 
X'OT' = Prime area (ISFMS) or consecutive area, etc., (i.e., the extent 
containing the user's data records), 
X'02' = Overflow area of an ISFMS file. 
Х'04' = Cylinder index or master index of an ISFMS file. 
Х'40' = User label track area. 
X'8n' = Shared cylinder indicator, where n = 1, 2, or 4. 
15. EXTENT Зеаџепсе Number Number of extents as determined by the EXTENT card sequence. 
16. EXTENT Lower Limit Relative extent converted to the form HHnnT for // DLBL job control statement, ог 
CCHH from // DLAB job control statement. 
17. EXTENT Upper Limit Same 2s field 16, but for upper limit. 
18, System Unit Class Device class and unit numbers. 
System Unit Order 
19, 2321 Lower Call 2321 EXTENT lower and upper limit bin numbers. 
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100] 104102]103} Displacement 





Note: For Sequential Disk files, a complete 104=byte block is repeated for each new EXTENT. For Direct Access and ISFMS files, 


only fields 13 through 18 are repeated for each EXTENT. 
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Appendiz Е. Compile-Time Diagnostic Messages 


In the list of diagnostic messages below, 
the message text is preceded by the message 
number and the applicable severity code. 
Where necessary, the messages are followed 
by an explanation, an example, a descrip- 
tion of the action taken by the system, and 
the response required from the user. 
Explanation, Example, and System Action are 
given only when the text of the message is 
not sufficiently self-explanatory. 


When no User Response is stated, the 
user should assume that he must correct the 
error in his source program unless the 
action taken by the system makes it unne- 
cessary for him to do so. However, even 
when system action successfully corrects an 
error, the user should remember that, if he 
subsequently recompiles the same program, 
he will get the same diagnostic message 
again unless he has corrected the source 
error. 


The format of the diagnostic messages is 
as follows: 
5xdddI 


nnnn C comment 


where: 


x may be one of the following 
characters: 


A if compilation must be terminated as 
a result of a job-control device 
assignment or option error or 


if an error is detected in the PL/I 
PROCESS card. 


C if a logical error has been detected 
in a source statement. 


E if a syntactical error has been 
detected in a source statement. 


G if the source program is too long or 
causes a storage overflow. 
ddd is the number of the error message. 
For a message that is also printed on 
the console, the number is composed of 
only two digits. 


I indicates that the message is of 
information type and that no operator 
action is required. 


is the number of the statement in 
which the error was detected. This 


nnnn 
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number is given only in 5C and 5E type 
messages. 


C is the severity code, which may be one 
of the following: 


W = Warning. 

This code indicates that the compiler 
suspects an error although the program 
is written in legal PL/I language. 


The compiler takes no further action. 


E = 

The program is in error. However, the 
compiler has taken appropriate correc- 
tive action. Execution of the program 
will be successful if this corrective 
action was adequate. 


S = Severe Error. 

The program contains errors which the 
compiler cannot correct, but which do 
not prevent the compilation from being 
continued. Execution of the generated 
object program will be unsuccessful. 


T - Termination. 

The source program contains errors 
causing the compilation to be ter- 
minated. Compilation ends after the 
messages have been printed. 


comment 
is a compiler-generated explanation of 
the type of error. 


The error messages are printed on the 
unit assigned to SYSLST if ERRS was speci- 
fied in the Job Control CFTION statement or 
in the PL/I PROCESS card. The error list 
is followed by a message resulting from all 
detected errors. This message gives the 
action taken by the compiler. 


If errors of the severity T are 
detected, the message is: 

БЕОЛТ JOBSTEP PL/I TERMINATED. LINK 
OPTION RESET. 


If no errors of the severity T, but 
errors of the severity S are detected, tne 
message is: 


5E021 LINK OPTION RESET. 
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Since in the case of severe errors no 
linkage editing is possible, the // EXEC 
LNKEDT statement, if any, is flagged as 
invalid by the Job Control message 1SinD 
STATEMENT OUT OF SEQUENCE. 


If only errors of the severity W or E 


detected, the message is: 


„== — —— ЖА -—— • 


are 


Note: This diagnostic messag 
Statements. 


THE PRECEDING ERROR CONCERNS 


THE PRECEDING 


жаза; FA вла. LOS 


Statement item 


ERRO 


%9 


.... REPRESENTS CHARACTER 

Ехрјапа 1 Illegal use of 

sentation of the character-st 
replaced by four periods. 


Example: DECLARE М PICTURE А 
String "99999" is not recogni 
constant. The 
tement number: 


5С019І хх 5 


| 5E03I POSSIBLE ERRORS ІМ SOURCE PROGRAM. 


Note: One or more of the following four 
diagnostic messages may appear after one of 
the messages 5C003I through 5C030I in order 
to give additional information. These four 
messages are printed without message num- 
haro anA cara 4-<” 
7 


ЛК ақа AV СА А отете СКО е 


е will only be printed for errors in DECLARE 


THE VARIABLE NAMED variable name 


STRING CONSTANT. 
character-string constant. Since external repre- 


ring constant is not available, the constant is 


"99999", Due to the illegal character "А" the 
zed as numeric picture but as character-string 


following messages will be issued where xx represents the sta- 


INVALID ATTRIBUTE(S) IGNORED..A'....' 
* REPRESENTS CHARACTER STRING CONSTANT. 


THE PRECEDING ERROR CONCERNS THE VARIABLE NAMED N. 


NO COMPILER OUTPUT SPECIFIED 


к 


NOT THE SAME OR WRONG MEDIUMT 


Explanation:  SYSO01, 575002, 
type, l.e., either to magneti 


5A003I PARTITION SIZE TOO SMALL FOR 


5A004I ASTERISK IS NOT FOLLOWED BY B 


Explanation: Refers to PL/I 
asterisk. 


5A005I ASTERISK AND 


tome и See mame mme a алла» «әмме ey «өлен meee 


asterisk. 


5A006I OPTION invalid option UNKNOWN 


Explanation: Refers to PL/I 
5А0071І KEYWORD PROCESS МОТ FOLLOWED 


Explanation: Refers to PL/I 


540081 PROCESS LIST TOO LONG. 


Explanation: Refers to 
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Refers to PL/I PROCESS card. 


iN OPTION STATEMENT. 


YPES FOR 5Ү5001, SYS002, 575003. 


and 5Ү5003 must be assigned to the same device 
c tape drives, or to 2311 or 2314 DASD extents. 


THE 12K VARIANT. 
LANK. CARD IGNCRED. 


PROCESS card. A plus sign is treated as an 


BLANK(S) NOT FOLLOWED BY KEYWORD PRCCESS. 


A plus sign is treated as an 


. FOLLOWING TEXT IGNORED. 
PROCESS card. 
BY BLANK. CARD INGORED. 


PROCESS card. 


IGNORED IS invalid option 


PL/I PROCESS card. 


5A009T 


5А0101 


5A011T 


5C003I 


5CO004L 


5С005т 


5C0061 


5C007I 


5C0081 


5С0091 


5С0101 


5CO11I 


5C0121 


5C0131 


5C014T 


5C015I 


5C0161 


5C017I 


PROCESS LIST TOO LONG. 
Explanation:  Refers to PL/I PROCESS card. 


COMMA NOT FOLLOWED BY OPTICN. 

Explanation:  Refers to PL/I PROCESS card. 

OPTION NOT FOLLOWED BY COMMA. 

Explanation:  Refers to PL/I PROCESS card. 

LEVELNUMBER OF STRUCTURE ITEM TOO HIGH.  ASSUMED TO BE level number 
Explanation: Level number must not be higher than 255. 

NO OPTIONS LIST WITH ENVIRONMENT ATTRIBUTE. 

Example: DECLARE FIL FILE ENVIRONMENT INPUT; 


OPTION LIST NOT CLOSED BY ). PARENTHESIS INSERTED AT END OF STATEMENT. 


Explanation: This message concerns the ENVIRONMENT and the INITIAL 
· attributes. 


Example: DECLARE FIL FILE PRINT ENV(MEDIUM(SYSLST,1403) F(80) ; 

NO POINTER SPECIFIED FOR BASED ITEM. 

Example: DECLARE VAR BASED; 

ERROR IN SPECIFICATION OF POINTER FOR BASED ITEM. IGNORED IS based data item 


Examples: 1. DECLARE B BASED (A,D); 
2. DECLARE C BASED (Е(1)); 


NO BASE SPECIFIED FOR DEFINED ITEM. 


Example: DECLARE X DEFINED; 


ERROR IN SPECIFICATION OF BASE FOR DEFINED ITEM. IGNORED IS defined data item 
ERROR IN RETURNS LIST. IGNORED IS invalid elements 

Example: DECLARE FUNCT ENTRY RETURNS (7); 

NO LENGTH SPECIFIED FOR STRING. LENGTH ASSUMED TO BE maximum value 

ERROR IN STRING LENGTH SPECIFICATION. IGNORED IS invalid element 

Example: DECLARE CHARA CHARACTER (STU); 

ERROR IN PRECISION ATTRIBUTE. IGNORED IS invalid element 

Example: DECLARE VAR FIXED (XYZ); 

VALUE OF ARRAY BOUND MUST NOT BE 0.  ASSUMED TO BE 1. 

VALUE OF ARRAY BOUND TOO HIGH.  ASSUMED TO BE maximum value 

ERROR IN DIMENSION ATTRIBUTE. IGNORED IS invalid element 

Example: DELCARE АС7,1,2); 

RIGHT PARENTHESIS MISSING. CORRESPONDING LEFT ONE IGNORED BEFORE declare_sta- 


tement item 
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a 


5CO18I 


5С0191 


5С0201 


5С0211 


5C022I 


5C023I 


5С0271 
5C028I 


5С0291 


5С0301 


5COU3I 


500447 
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NESTING ОЕ ATTRIBUTE FACTORIZATIONS ТОО DEEP. DECLARATIONS FRCM NESTING LEVEL 
9 ON IGNORED 


INVALID ATTRIBUTE(S) IGNORED.. invalid attribute [,invalid attribute...] 
SYNTACTICALLY ILLEGAL CHARACTER(S) IGNORED.. ignored character(s) 
Example: DECLARE PP FIXED $; 


DECL. TOO LONG. ITEMS EXCEEDING LIMIT ARE IGNORED BEGINNING WITH declare sta- 
tement item 


NO NAME OR FACTORIZATION FOR LEVELNUMBER.. level number 
Example: DECLARE 1 STR, 2, 3 STR1; 


NO INITIALIZATION WITH INITIAL ATTRIBUTE. 


STRINGLENGTH MUST NOT BE 0.  ASSUMED TO BE maximum value 
PRECISION TOO LARGE. SET TO 53. 

SCALEFACTOR TOO GREAT.  ASSUMED TO BE maximum value 
STRINGLENGTH TOO GREAT.  ASSUMED TO BE maximum value 


LIST OF INITIALIZATIONS NOT CLOSED BY ). PARENTHESIS INSERTED AT END OF 
STATEMENT. 


NUMBER OF DIGITS IN PRECISION ATTRIBUTE MUST МСТ BE 0. DEFAULT VALUE ASSUMED. 


TOO MANY DIGITS SPECIFIED FOR PICTURE VARIABLE. DEFAULT VALUE IN SYMTAB 
ASSUMED FOR variable name. 


Explanation: The precision of the numeric-picture variable exceeds 15 or 16 
digits for decimal fixed or decimal float, respectively. This would lead to 
an error at execution time. In the symbol-table listing, the default value is 


printed. 

SYNTAX ERROR IN INITIALLIST. NO INITIALIZATICN CF variable name 
Explanation: The INITIAL-list is composed of the following elements:  con- 
Stants, iteration-factors, left and right parentheses, and commas. Error 
number 44 will be issued if 


е the succession of these elements is incorrect, or 
• the constants or iteration-factors are incorrect. 


Examples of incorrect succession: 
i. L1NITIAL (1,2,) 

2. INITIAL (1,(2,3)) 

3. INITIAL (1,(10) (2,3240 


Examples of incorrect constants: 


1. 10138 
2. 123E 
3. 1.21.21 


Examples of incorrect iteration-factors: 


1. INITIAL ((-3)0) 
2. INITIAL (00) (4  ,2)) 
3. INITIAL (10(1,2)) 


Moreover, message number 44 will be issued, if there is an illegal character 
within the INITIAL-list, e.g., INITIAL (2 * 3). 


5CO45I S NESTING DEPTH EXCEEDS 8. NO INITIALIZATION CF variable name 


5CO46I S ITERATION FACTOR NOT ALLOWED FOR SCALAR VARIABLE. NO INITIAL. OF variable 
name 


Example: DECLARE Z FIXED INITIAL ((3)4); 
5COU7I S ITERATION FACTOR GREATER THAN 32K. МО INITIALIZATION OF variable name 
5COUSI 5 WRONG DATA TYPE. МО INITIALIZATION OF variable name 


Explanation: This error message will be issued, if the type of a constant 


within the INITIAL-list is not compatible with the type of the variable to be 
initialized. 


Example: DECLARE A DECIMAL FIXED INITIAL ('ABC'); 


5С0491 S INITIAL VALUE IS NOT A LABEL CONST. WITHIN THE SCOPE OF LABEL VARIABLE. NO 
INITIAL. OF variable name 


Explanation: The label constant is internal to a procedure or begin block 


internal to the block in which the label-variable is declared. 


Example: P: PROCEDURE; | 
DECLARE LAB LABEL INITIAL (L2); 


BEGIN; 
L2: END; 
END P; 


5С0501 5 MORE THAN ONE CONST. FOR SCALAR VARIABLE. NO INITIALIZATION OF variable name 
Example: DECLARE Ү INITIAL (ЗЕ + 01, 33 E + 2); 

5С0511 W ТОО MANY CONSTANTS FOR ARRAY. EXCESS ONES IGNORED FOR array name 

5C0521 S  INITIALLIST TOO LONG. INITIAL ATTRIBUTE IGNORED FOR variable name 


5C053I 


кз 


SYMBOL TABLE ERROR FOR INITIALIZED name 


Explanation: This message occurs only if a STATIC structure containing ele- 


ments with INITIAL attribute is multiply declared. 
5CO54I E ERROR IN F-OPTION OF FILE filename 
5C0551 E LEFT PARENTHESIS INSERTED IN FILE filename 
5C0561 E ILLEGAL ELEMENT IGNORED IN FILE filename 
5C0571 E RIGHT PARENTHESIS INSERTED IN FILE filename 


5C0581 S ILLEGAL USAGE OF REGIONAL OPTION. OPTION IGNORED IN FILE filename 
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5С0591 


5С0601 


5C0671 


5С068І 


5С0691І 


5С0701 
5C0711 
5С0721 
5C073I 
5CO74I 
5С075І 


5С0761 


5С077І 


5C0781 


5C0791 


112 


ы 


F3 


KEYED ATTRIBUTE INSERTED FOR DIRECT AND/OR INDEXED FILE filename 


Explanation: Files with the attributes DIRECT and/or INDEXED must have the 


— — Ба Á— «әкке» a A алдын P ama 


attribute KEYED. 

KEYLENGTH SPECIFICATION MISSING IN FILE filename 
in files having 
EYLENGTH SPECIFICATION FOR FILE filename 

ERROR IN BLOCKSIZE SPECIFICATION FOR FILE filename 

ERROR IN BUFFERS OPTION.  BUFFERS(1) ASSUMED FCR FILE filename 

ERROR IN OFLTRACKS SPECIFICATION.  OFLTRACKS IGNORED FOR FILE filename 


ERROR IN MEDIUM OPTION FOR FILE filename 


N тттт С: I aae m aa am 
ч і 


їіепаше 


Example: DECLARE FILE2 FILE INPUT ENVIRONMENT (MEDIUM (SYSRDR, 2540) ...); 
SYSRDR is an invalid logical unit (choice must be made between SYSIPT and SYS- 
nnn [nnn=001-222]). 

INVALID DEVICE TYPE SPECIFICATION IN FILE filename 

Example: DECLARE FILE3 FILE...ENVIRONMENT (MEDIUM(...,2020)...); 

DEVICE TYPE OR FUNC. ATTR. CONFLICTS WITH LOG. DEVICE NAME IN FILE filename 


Example: DECLARE FILE4 FILE INPUT ENVIRONMENT (MEDIUM (575001, 1403)...); 


Input from Printer 1403 impossible. 
CONFLICTING ATTRIBUTES AND/OR OPTIONS IN FILE filename 
Examples: 1. DECLARE FILES FILE INPUT RECORD UFDATE ...; 


2. DECLARE FILE6 FILE OUTPUT ENVIRONMENT (MEDIUM (545002, 1403) 
LEAVE NOLABEL F (81)); 


INPUT, OUTPUT, OR UPDATE ATTRIBUTE MISSING IN FILE filename 
DIRECT ATTRIBUTE INSERTED FOR REGIONAL FILE filename 
NOLABEL OPTION INSERTED FOR UNBUFFERED TAPE FILE filename 
ENVIRONMENT ATTRIBUTE MISSING IN FILE filename 

MEDIUM OPTION MISSING IN FILE filename 

BLOCKSIZE NOT DIVISIBLE BY RECORDSIZE IN FILE filename 
RECORDSIZE OF RECORD NOT DIVISIBLE BY 8 IN FILE filename 


Explanation: The record size must be divisible ky 8 if blocked records are to 


be transferred by a READ SET or LOCATE statement. 
DIVISION OF BLOCKSIZE BY 8 DOES NOT YIELD REMAINDER OF 4 IN FILE filename 


Explanation: If the V option is used, the record size of records to be trans- 


ferred by a READ SET or LOCATE statement must yield a remainder of 4 after 
division by 8. 


BLOCKSIZE BEYOND DEVICE DEPENDENT LIMITS IN FILE filename 


F, U, OR V OPTION MISSING IN FILE filename 


5C 0801 


5C 0811 
5C08 21 
5СО8&Т 
5C085I 


5С0861 


5C0871I 


5CO088I 


5С0891 


5С0901 


5С0911 


5 


5 


5 


W 


MORE ERROR(S) IN FILE filename 


Explanation: The maximum number of error messages issued for one file 


declaration is 7. If the file declaration contains more than 7 errors, this 
message is printed. 


INVALID ATTRIBUTE IGNORED IN FILE filename 

PRINT ATTRIBUTE ASSUMED FOR PRINTER AS PHYSICAL DEVICE IN FILE filename 
ERROR IN EXTENT NUMBER SPECIFICATION FOR FILE filename 

EXTENTNUMBER SET TO 3 IN DECLARATION OF FILE filename 

INVALID DEVICE TYPE SPECIFIED FOR HIGHINDEX IN FILE filename 


Explanation: Only the device types 2311 and 2314 are allowed. 2321 may be 


specified if the device type in the corresponding MEDIUM option is also 2321. 


System Action: The invalid device type is used for executicn. 


NUMBER OF OFLTRACKS EXCEEDS DEVICE DEPENDENT LIMITS IN FILE filename 


Explanation: The number n of overflow tracks specified in the OFLTRACKS 


option must be within the following limits: 


< 8 for 2311 
< 18 for 2314 and 2321 


System Action: The value in error is used for execution. 


KEYLOC BEYOND RECORDSIZE LIMITS IN FILE filename 


Explanation: The key location n specified in the KEYLOC option must be within 


the following limits: 
1 < п s record size - keylength + 1 


The message is issued if n > record size - keylength + 1. If n = 0 message 
5C0921 is printed. 


System Action: The value in error is used for execution. 


ADDBUFF AREA LESS THAN MINIMUM OR GREATER THAN MAXIMUM IN FILE filename 


Explanation: The number n of bytes specified in the ADDBUFF option must be 
within the following limits: 


60 * block size * keylength s n « 32K 
System Action: The value in error is used for execution. 
RECORDSIZE NOT GREATER THAN KEYLENGTH IN FILE filename 


Explanation: For blocked records, the record size must be greater than the 


——À —— RO rae ee ee ee 


keylength. If KEYLOC is specified, this also applies for unblocked records. 


System Action: The value in error is used for execution. 


——————————— 


Explanation: The lengths n of the records on the overflow tracks are 


restricted as follows: 


3605 - keylength - 10 bytes for 2311 
7249 - keylength - 10 bytes for 2314 
1984 - keylength - 10 bytes for 2321 


22209 
IA IA IA 
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5C0921 Е  INDEXAREA, ADDBUFF, HIGHINDEX OR KEYLOC OPTICN IGNORED IN FILE filename 


Explanation: One of the options INDEXAREA, ADDBUFF, HIGHINDEX or KEYLOC is 


either not followed by a parenthesized specification or is followed by an 
invalid specification. 


ATTA а mn ma ж mr селат а а 
NULAARLA LIDO LIAU 


сл 
С) 
© 
`2 
ОЈ 
H 
0) 
к 


Explanation: Тһе number n of bytes specified in the INDEXAREA option must not 
exceed the following limits: 


3 + (keylength + 6) < п « 32K 
System Action: The value in error is used for execution. 
SCO94I 5 MAX. NUMBER OF EXPL. DECLARED VARIABLES PER BLOCK REACHED WITH name 
5С0951 E MORE THAN ONE INITIAL ATTRIBUTE FOR variable name 
System Action: Only the first INITIAL attribute is used. 
5C0961 E MORE THAN ONE DIMENSION ATTRIBUTE FOR variable name 
System Action: Only the first dimension attribute is used. 
5C097I E MORE THAN ONE LEVELNUMBER FOR STRUCTURE ITEM structure item name 
System Action: The first level number is used. 
5C0981 E MORE THAN ONE PRECISION OR STRING LENGTH SPECIFIED FOR variable name 
System Action: The first precision or length is used. 
5С0997 E MORE THAN ONE PICTURE ATTRIBUTE SPECIFIED FOR variable name 
5C100I E МОВЕ THAN ONE BASE OR POINTER SPECIFIED FOR variable name 
Example: DECLARE NAME BASED(X) DECIMAL FIXED(7) BASED(Y); 


5C1011 E STRUCT. NOT START. WITH LEVELNUMBER 1, ASS. TO BE MAJCR STRUCT. NAME IS struc- 
ture name 


Example: DECLARE 2A, 2B, 2C; A is assumed to be the major-structure name. 
5C1021 E  NON-FILETYPE ATTRIBUTES IGNORED FOR FILE filename 
5C1031 Е NON-APPLICABLE ATTRIBUTE(S) IGNORED FOR STRUCTURE structure name 

Example: DECLARE 1 A1 FIXED, 2B, 2C; 


5C104I S INVALID INITIALIZATION IGNORED FOR variable name 


Explanation:  Initialization with INITIAL-attribute is conflicting with type 
or attributes of the variable. 


Example: DECLARE E ENTRY INITIAL (SUBPRO); 


5C1051 E ALIGNMENT PERFORMED FOR BITSTRING bitstring-variable name 


Explanation: Bit strings contained in structures and bitstring-arrays are 
aligned by the D-compiler. 


5C1061 Е MORE THAN 12 DIFF. PARAMETERS TO BE PASSED TO OR FROM BLOCK NUMBER block 
number 


115 


Explanation: Number of parameters is limited to 12. 


5C107I E ТОО MANY DIGITS SPECIFIED IN PREC. ATTR. DEFAULT VALUE ASSUMED FOR variable 
nare 


5С108І Е NO SCALE ALLOWED WITH FLOAT OR BIN FIXED. DFLT.PRECIS. ASSUMED FOR variable 
name 


Explanation: A scale factor must not be specified within the precision attri- 


bute of BINARY FIXED or FLOAT variables. The whole precision attribute will 
be ignored and the default precision is assumed for that variable. 


— —M M — — 


Illegal: Assumed: 
BINARY FIXED (15,3) BINARY FIXED (15) 
BINARY FIXED (31,0) BINARY FIXED (15) 
DECIMAL FLOAT (3,2) DECIMAL FLOAT (6) 
DECIMAL FLOAT (6,0) DECIMAL FLOAT (6) 
BINARY FLOAT (53, 8) BINARY FLOAT (21) 
BINARY FLOAT (53,0) BINARY FLOAT (21) 


5C1091 E ENTRY INTO EXT. PROC. IS OF TYPE EXTERNAL. INTERNAL ATTR. IGN. FOR entry name 

5C1101 T MORE THAN 32K BYTES REQUIRED FOR ARRAY array name | 

5С1111 T POINTER AND/OR BASE IDENT. МОТ OR INCORRECTLY DECL. FOR ARRAY array name 
Example: DECLARE U, BAS(10) BASED (U); U is not a pointer. 

5C1131 T REFERENCED VARIABLE OR RELATED BASE/POINTER INCORR. FOR ARRAY array name 


Example: DECLARE 1 A, 2 (B(10),C), X(10) DEFINED B; 
Defining on elements of structures is not allowed. 


5C1151 Е REPLICATION FACTOR OF ZERO IGNORED IN INITIAL LIST CF variable name 

5C1161 E STRING CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 
5C1171 Е EXPONENTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 

5С1181 Е FLOAT. CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 
5C1191 E ZERO ASSUMED FOR INVALID FLOAT. CONSTANTS IN INITIAL LIST CF variable name 


5C1201 E MAX. VALUE ASSUMED FOR INVALID FLOAT. CONSTANTS IN INITIAL LIST OF variable 
name 


5C1211 E STERLING CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 
5C1221 E BINARY FIXED CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST OF variable name 
5C1231 E DECIMAL FIXED CONSTANTS TRUNCATED ON RIGHT IN INITIAL LIST CF variable name 


5C124I E RESULT OF CONST. CONV. UNDEF. DUE TO SIZE ERROR. CHECK INITIAL LIST OF vari- 
able name 


5Е0011 T ILLEGAL CHARACTER IN LABEL PREFIX OR STATEMENT BEGINNING. 


Examples: 1. 581: +82: 1В3: АРС = 50; 
Second label is not an identifier. 


2. LAB: +ВС = 50; 
Statement begins with an illegal character. 


System Action: The error statement is replaced by a dummy statement. 
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5E0021 Т STATEMENT TYPE CANNOT BE IDENTIFIED. 


Explanation: An identifier at statement beginning is neither a statement 
identifier nor followed by the assignment symbol =. 


Example: PUTT SKIP EDIT (B) (A); PUTT is not a statement identifier. 


System Action: The error statement is replaced ky a dummy statement. 


5E0031 Т NESTING OF BLOCKS EXCEEDS 3 LEVELS. 


Explanation: Implementation restriction. The depth of nested blocks is 
restricted to 3 levels. The external proceduce is the first level. 


System Action: The flagged statement is replaced by the required number of 


END statements. The subsequent statements are ignored. 
5EOORI T NUMBER OF BLOCKS EXCEEDS 63. 


. The total number of biocks in an 
rnal procedure) must not exceed 63. 


System Action: The flagged statement is replaced by the required number of 
END statements. The subsequent statements are ignored. 


User Response: Reduce number of blocks in one compilation by generating 


external procedures. 
5Е0051 T ILLEGAL CHARACTER FOUND IN IF-STATEMENT BEFORE 'THEN' IS DETECTED. 

Example: IF A = 1; THEN GOTO LAB; 

System Action: The incorrect IF statement is replaced by a dummy statement. 
5Е006І Т NO LABEL IS PERMITTED BEFORE AN ELSE-CLAUSE. 

Example: IF A = 1 THEN ...; LAB: ELSE B = 5; 
5E0071 Т ELSE FOLLOWED BY INVALID UNIT. 


e: IF A = 1 THEN ...; ELSE 5 = B; where B is a correctly declared 


System Action: The invalid ELSE clause is replaced by a dummy statement. 
5Е0081 Т DO-GROUP NESTING EXCEEDS 12 LEVELS. 

Explanation: Implementation restriction. The maximum depth of a nested set 

of DO statements (including repetitive specifications in GET or PUT state- 

ments) is 12. 


System Action: The flagged DO statement is replaced by a dummy statement and 
the following text is ignored. 


5E009I Т INVALID END STATEMENT. 


Explanation: The keyword END is not followed by a semicolon cr by the label 
of its associated PROCEDURE, BEGIN, or DO statement. 


Example: LAB: PROCEDURE; 


eee ee ee 


END LAS; 


116 


БЕ0101 


5Е011І 


5Е0121 


5Е013І 


5Е0181І 


5Е0151 


5Е016І 


5E017I 


5E0181 


T 


T 


T 


LOGICAL END OF PROGRAM DETECTED BEFORE END OF SOURCE TEXT. 


Explanation: Text follows the logical end of the program. Тһе programmer 


seems to have made an error in matching END statements with PROCEDURE, BEGIN, 
or DO statements. 


System Action: All text following the flagged statement is ignored. 


——————À—————— 


MORE THAN ONE LABEL BEFORE PROCEDURE OR ENTRY STATEMENT. 


Explanation: PROCEDURE and ENTRY statements must have one and only one label. 


NO LABEL BEFORE PROC. OR ENTRY STATEMENT. LABEL B INSERTED. 


Explanation: PROCEDURE and ENTRY statements must have one and only one label. 


System Action: The compiler inserts the label 'B:' before the flagged state- 
ment. This may cause further error messages (e.g., multiple declaration). 


FIRST STMNT NOT PROCEDURE STMNT. FOLLOWING TEXT IGNORED. 


System Action: Further error messages may result (e.g., 5E0121 and 5Е0151). 


—Ó— — —— — —À —Ó — — 


STATEMENT TOO LONG. STATEMENT TRUNCATED. 


Explanation: Internal buffer overflow. 


User Response:  Subdivide statement and recompile. 


END OF SOURCE MODULE FOUND BEFORE LOGICAL END OF PROGRAM. 
Explanation: Problem causing the errór may be: 
1. Missing final semicolon. 


Example: LAB: PROCEDURE OPTIONS (MAIN); 


. 


END 
/* 


2. Missing END statement(s). 


Example: LAB: PROCEDURE OPTIONS (MAIN); 


=== <= 


ро I = 1 ТО 5; 
END; 
/* 


RIGHT PARENTHESIS MISSING IN THIS STATEMENT. 


Example: A(2,3,1 = 15; where A is declared as a three-dimensional array. 


END OF SOURCE MODULE FOUND IN PARENTHESIZED LIST. 
ILLEGAL CHARACTERS IGNORED IN THE PROGRAM 


Explanation: Any of the characters listed below in hexadecimal notation are 
ignored unless they are included in a character string. In a program contain- 
ing such illegal characters, the compiler flags the first statement that is 


found to include one or more of these characters. 
the illegal characters are: 
B8 DA through DF 


BA through BF EA through EF 
CA through CF FA through FE 
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5E020T Т ELEMENT IN PREFIX LIST IS NOT A LEGAL CONDITION NAME. 


Examples: 1. (С у: ТАВ: statement; 
2. (ZERODIVIDE,+UNDERFLOW): LAB: statement; 
3. (ZERODIDIVE, UNDERFLOW): LAB: statement; 
System Action: The entire prefix list is ignored. 


5E0211 Т МАМЕ IN PREFIX LIST NOT FOLLOWED BY COMMA OR PARENTHESIS. 


Examples: 1. (ZERODIVIDE UNDERFLOW): statement; 


~ Fa pirga] 
c. TUVOK 


System_Action: The entire prefix list is ignored. 
5E022I T CONFLICTING CONDITION NAMES IN PREFIX LIST. 
Example:  (NOCONVERSION,CONVERSION): statement; 


System Action: The conflicting names are ignored. 
5Е023І Т COLON AFTER PREFIX LIST IS MISSING. 

5E0251 T RIGHT PARENTHESIS IS MISSING IN DATA OR FORMAT LIST 
5E0261 T MAIN PROCEDURE HAS INCORRECT OPTION LIST. 


Explanation: For the D-level compiler, the option list of a main procedure is 


а 


defined as 
MAIN[,ONSYSLOG] 


It must be enclosed in parentheses immediately foilowed by a semicoion. The 
problem causing the error may be: 


1. Missing comma or right parenthesis. 
Example: TEST: PROCEDURE OPTIONS (MAIN; 

2. Element in list which is not an identifier. 
Example: TEST: PROCEDURE OPTIONS (*AIN); 

3. Identifier in list which is neither MAIN nor ONSYSLOG. 
Example: TEST: PROCEDURE OPTIONS (MIAN); 


4. Option list not followed by semicolon. 


| 5E0271 Т NESTING OF ATTRIBUTES EXCEEDS 8 LEVELS. 


5Е028І Т INVALID DEFINED ATTRIBUTE IGNORED. 





5E0291 Т ILLEGAL FACTORIZATION OF FILE ATTRIBUTES. 
ЗЕОЗЧТ Т TWO OR MORE IDENTICAL IDENTIFIERS IN ONE PARAMETER LIST. 
| 5EO4OI T FIRST ARGUMENT IN SUBSTR PSEUDO-VARIABLE IS NCT A STRING VAR. 


ЗЕОЧАТ Т MAJOR OR MINOR STRUCTURE IN IF STATEMENT. 
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5Е0421 
бЕОВЗІ 
5ЕОІНИІ 


5Е045І 


5EO46I 


5Е047І 


5Е0Ш91І 


5Е0501 


5E051I 


5E053I 


5E055I 


5E056I 


T 


ARRAY IN ELEMENT-EXPRESSION OF IF-STATEMENT 

NO DATA FORMAT ITEM IN FORMAT LIST. 

ARRAY DECLARATION INCORRECT. FIRST BOUND OF ARRAY IS ZERO. 
EXTERNAL NAME(S) OF THIS PROGRAM LONGER THAN 8 CHARACTERS. 
Explanation: See explanation of message 5E0461. 


EXTERNAL NAME(S) OF THIS PROGRAM LONGER THAN 6 CHARACTERS. 


Explanation: Implementation restriction. The length of external identifiers 


must not exceed 6 characters. This also applies to names that are external hy 
default such as filenames, names of external procedures, etc. If an identifi- 
er has 7 or 8 characters, the object program can still be executed but errors 
may possibly occur. If the external identifier is longer than 8 characters 
the compilation is terminated (message 5E045I is issued). The statement in 
error indicated in this message need not be the statement in which the error 
is detected. 


TOO MANY IDENTIFIERS IN THIS STATEMENT. 


User Response:  Subdivide statement and recompile. 


POINTER AND/OR BASE IDENTIFIER NOT OR INCORRECTLY DECLARED. 


Examples: 1. DECLARE G CHARACTER (4); 
DECLARE K CHARACTER (4) BASED (G); 
К = 'TEST'; 
2. DECLARE P DECIMAL FLOAT POINTER; 
DECLARE A BASED (Р); 
A = Ati; 


In both examples, the third statement is flagged. 
ATTRIBUTE TABLE OVERFLOW. TOO MANY VARIABLES IN THIS STMNT. 


User Response: For each element variable and for each structure element named 
in the statement, a table entry will be generated. 


Subdivide statement and recompile. 
INVALID DEFINING 
Example: DECLARE 1 A, 
2 B DEFINED D, 
2 С; 
DECLARE D; 
B= 4; 
The third statement causes the error message. 


OPERAND IN A GOTO STATEMENT IS NOT A LABEL. 


Explanation: The operand in a GOTO statement must always be a label constant 


or an element label variable. 
ZERO-REPLICATION FACTOR FOR STRING CONSTANT IGNORED. 
STRING CONSTANT TOO LONG. TRUNCATED. 


Explanation: Implementation restriction. The length of bit-string constants 


is restricted to 64 bits; the length of character-string constants is 
restricted to 255 characters. 


—— À—ÀÀ— —ÀM—Ó— —Ó —Ó m 


255 characters are truncated on the right. 
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5E057I Е EXPONENT TOO LONG. TRUNCATED. 


Explanation: Implementation restriction. The exponent subfield of a decimal 
Gigit 


S, апа спас of a binary float- 


floating point constant is restricted to 2 

ing point constant to 3 digits. 

System Action: The exponent is truncated on the right. 
5Е058І E FLOATING-POINT CONSTANT TOO LONG. TRUNCATED. 


Explanation: Implementation restriction. The length of binary floating-point 


data is restricted to 53 bits; the length of decimal floating-point data is 
restricted to 16 digits. 


System Action: Decimal and binary floating-point constants exceeding 16 


digits or 53 bits, respectively, are truncated on the right, and the exponents 
are increased by the number of digits or bits truncated. 


5Е0591 E FLOATING-POINT CONSTANT TOO SMALL. SET TO ZERC. 

5Е0601 E FLOATING-POINT CONSTANT TOO LARGE. MAXIMUM VALUE ASSUMED. 

5E0611 E STERLING CONSTANT TRUNCATED. 
Explanation: The sterling constant is converted to and stored as decimal 
fixed-point pence. The converted constant must not exceed 15 significant 
digits. 


System Action: The converted decimal fixed-point pence number is truncated cn 


— A — — e ES алые «жш» «мм» 


the right. 
5Е0621 E BINARY FIXED-POINT CONSTANT TOO LONG. TRUNCATED. 


Explanation: Implementation restriction. The length of binary fixed-point 
numbers must not exceed 31 bits. 


System Action: The constant is truncated on the right. 


5E0631 Е DECIMAL FIXED-POINT CONSTANT TOO LONG. TRUNCATED. 


Explanation: Implementation restriction. The length of decimal fixed-point 


mM eum «Ел» umm que aper e us шш төле «мен 


numbers must not exceed 15 digits. 
System Action: The constant is truncated on the right. 
5E060I E RESULT OF CONSTANT CONVERSION UNDEFINED DUE TO SIZE ERROR. 


Explanation: The number of significant digits resulting from the constant 
conversion is greater than the precision specified for the target. 


Example: DECLARE X FIXED BINARY (10); 
| X = 2.44455; 


5Е065І Т ТОО MANY CONSTANTS IN THIS COMPILATION. 
Explanation: Internal buffer or constant-counter overflow. 
5E067I E INVALID CHARACTER STRING. ONE BLANK ASSUMED. 


Explanation: The apostrophe opening the character string is immediately fol- 
lowed by the closing apostrophe. 


System Action: The compiler assumes the character string to consist of one 


-– ьа шы 


5E0681 Т QUALIFIED NAME NOT DECLARED. 
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5Е069І Т 
5E070I E 
5E0711 T 
5E0721 Т 
5Е073І E 
БЕ07ЦТ E 
5E075I Т 
5E076I T 
5E077I T 
5E0781 S 
5E0791 T 
5Е0801 T 
5E0811 Т 
5E0821 T 


Example: LAB: PROCEDURE OPTIONS (MAIN); 
STRUCT. 5081 = 50; 
END; 
REFERENCED VARIABLE OR RELATED BASE/POINTER INCCRRECT. 


Example: DECLARE A CHARACTER (3) BASED (P); 
А = 'XYZ'; 


If P is not declared, the assignment statement causes the error 
message. 


A ) HAS BEEN INSERTED IN ARGUMENT OR FORMAL PARAMETER LIST. 

Example: CALL DYNDUMP (A,B ; 

UNSPECIFIED SYNTACTICAL ERROR. 

Example: DO A = ( B TO C BY D WHILE (E)); where А is a variable and В, C, D, 
E are valid expressions. The parentheses enclosing the specification of the 
DO statement are illegal. 

INTERNAL BUFFER OVERFLOW. (PROBABLY TOC MANY PARENTHESES). 

User Response:  Subdivide statement and recompile. 


ONE OR MORE ) INSERTED TO- OBTAIN A VALID EXPRESSION. 


Example: DECLARE (A,B,C,D,E) DECIMAL FIXED; 
A = B** (C*D*E ; 


ACTION FOR 5E0731 MAY CAUSE ADDITIONAL ERROR MESSAGES. 
2ND OPERAND iN DISPLAY STATEMENT INVALID. 


Explanation: The second operand of the DISPLAY statement must be a character- 
string element variable enclosed in parentheses. 


SHILLING FIELD OF STERLING CONSTANT GREATER THAN 19. 

ERROR IN PARAMETER, OR SUBSCRIPT, OR ARGUMENT LIST. 

ILLEGAL FILENAME OR LABEL IDENT. IN ON, SIGNAL OR REVERT STMT. 
WHILE FOLLOWED BY INVALID EXPRESSION. 

1ST OPERAND IN DISPLAY STATEMENT INVALID. 


Explanation: The first operand in a DISPLAY statement must be an element 
expression enclosed in parentheses. 


INVALID OR MISSING CONDITION NAME. 


Explanation: The keyword ON is not followed by a valid condition name and/or 


filename. 
Examples: 1. ON #ONVERSION GOTO LAB; 

2% ON CNVERSION СОТО LAB; 

3. ON ENDFILE GOTO LAB; (filename missing) 

4. ON ENDPAGE(?RATE)GOTO LAB; (invalid filename) 
INVALID OR MISSING OPERAND AFTER GOTO IN ON STATEMENT; 


Explanation: The keyword GOTO in an ON statement is not followed by an 
identifier. 


Examples: 1. ON CONVERSION GOTO; 
2. ON CONVERSION GOTO +AB; 
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5Е083І 


5Е084І 


5Е086І 


5Е087І 


5Е0881 


5Е089І 


5Е090І 
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UNSPECIFIED ERROR IN ON STATEMENT. 


Explanation: The ON statement has the following format: 
ON condition {5ҮЅТЕМ; | ON-unit} 


ompiler detected that the ON-condition is neither followed by the keyword 


ec 
cmr ~ he а о зала ON-uni а 
оза ПОК OY а Vaiia QOmN-unic. 


он 
ка 27 


Example: ON CONVERSION +5; 
INVALID CALL STATEMENT. 


Explanation: No identifier, especially no entry name, is following the key- 
word CALL. 


Examples: 1. CALL +AB; 
2. CALL; 


ERROR IN CLOSE LIST. 
Explanation: The CLOSE statement has the following format: 
CLOSE FILE (filename) [, FILE (filename)] ...; 


Either the keyword CLOSE or one of the commas in the list is not followed by 


tha bayvunrAaA PTT 
Cual ROWE Laie 


Examples: 1. CLOSE FLE (OUT); 
2. CLOSE (OUT); 
3. CLOSE FILE (OUT), (IN); 


ERROR IN FILE OPTION 


Explanation: Syntax error. The file option consists of the keyword FILE fol- 
lowed by the file name enclosed in parentheses. 


. OPEN FILE (t-*): 
. OPEN FILE ІМ); 
. CLOSE FILE (IN ; 


Examples: 


UN не 


where IN is a valid file name. 
ERROR IN OPEN LIST. 
Explanation: The OPEN statement has the following format: 
OPEN FILE (filename) options group [,FILE (filename) options groupl...; 


Either the keyword OPEN or one of the commas in the list is not followed by 
the keyword FILE. 


Examples: 1. OPEN FLE (IN); 


A 1 тм \ 
Ze МЕС 1); 


3. OPEN FILE (IN), (OUT); 
WRONG FILE OPTION IN READ, WRITE, OR REWRITE STMNT. 


Explanation: The keyword READ, WRITE, or REWRITE is not followed by the key- 
word FILE. 


INVALID OR MISSING OPERAND IN PAGESIZE OPTION. 
NO SET OPTION IN LOCATE STATEMENT. 


Explanation: The file option in a LOCATE statement is not followed by the 


keyword SET. 


Examples: 1. LOCATE A FILE (OUT); 
2. LOCATE A FILE (OUT) SE (P); 
5E0911 T INVALID OR MISSING OPERAND IN KEY OPTION. 


Explanation: Syntax error. The KEY option must consist of the keyword KEY 


followed by a parenthesized expression representing a character string. 
580921 Т INVALID FROM, FILE, OR INTO OPTION. 


Explanation: Syntax error. FROM, FILE, or INTO is not followed by a valid 
operand, or the operand is not enclosed in parentheses. 


Example: PUT FILE OUT EDIT (BUFFER) (A); 
5E0931 T INVALID OR MISSING OPERAND IN SET, STRING-, CR KEYTO OPTION. 


Explanation: Syntax error.  E.g., the SET option consists of the keyword SET 
followed by the name of a pointer variable enclosed in parentheses. 


Examples: 1. LOCATE A FILE (OUT) SET (P1 ; where Р is a pointer variable. 
2. LOCATE A FILE (OUT) SET (1); 


5EO94I Т INVALID OR MISSING OPERAND ІМ KEYFROM OPTION. 


Explanation: The keyword KEYFROM must be followed by an element expression 
enclosed in parentheses. 


5E0961 T ERROR IN FORMAT LIST 
Explanation: The error may be caused by: 


1. Left parenthesis of one of the format lists is missing. 
2. A left parenthesis or one of the commas in the list is neither followed by 
an iteration factor nor by a valid format item. 
3. An iteration factor in the list is neither followed by a valid format item 
nor by a format list. 
5E0971 E MISSING ) INSERTED IN FORMAT LIST. 
5E0981 T MISSING OR INVALID CONTROLVARIABLE IN DO-STATEMENT. 


Example: DO C(5) = 1 TO 7; 
The control variable C must not be subscripted. 


5E099T Т INVALID LINE, COLUMN, OR X FORMAT ITEM. 
Explanation: Missing or invalid operand in a LINE, COLUMN, or X-format item. 


——4———————— 


Example: PUT SKIP EDIT (BUFFER) (X(5, A); 


= ee ee de ee ee 


In the above example, the right parenthesis enclosing the operand of the Х- 
format item is missing. 


5E1001 Т INVALID R FORMAT ITEM. 
Explanation: Missing or invalid operand in an R-format item. 
5E1011 T MISSING ( IN E OR F FORMAT ITEM. 
5E1021 Т MISSING INTEGER IN E OR F FORMAT ITEM. 
5E1031 T MISSING ) IN E OR F FORMAT ITEM. 
5Е104І Т COMMA MISSING AFTER 1ST INTEGER IN E FORMAT ITEM. 


5E1051 Т BUIL;-IN FUNCTION AS ARGUMENT OF PSEUDC-VARIABLE. 
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5Е108І 


5Е109І 


5Е1101 


5Е1111 


~“ 2-2 = = 


5Е113І 
5E1141I 


5E1161 


5E118I 
5Е119І 


5E120I 


5Е1221 


5E123I 
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"3 


INVALID OPTION LIST IN READ OR WRITE STATEMENT. 


MAIN PROCEDURE MUST NOT RETURN AN EXPRESSION VALUE. 


CHARACTER OR BIT EXPRESSION IS TOO LONG. 


—— видо ee ee — — — 


character-string expression must not exceed 255 
the number of resulting bits must not exceed 64. 


Explanation: The number of characters resulting f 
в 


DATA, OPTION, OR FORMAT LIST CONTAINS INVALID ITEM(S). 
Examples: 1. PUT SKIP EDIT (BUFFER (A); 
Right parenthesis missing after BUFFER. 
2. PUT EDIT SKIP (BUFFER) (A); 
The keyword EDIT must immediately be followed by the data 
specification. 
INVALID DATA ELEMENT. 
INVALID REPETITIVE SPECIFICATION. 
ENTRYPOINT IN THIS STATEMENT INVALIDLY DECLARED. 
MISSING OR WRONG BASED VAR. OR FILE OPTION IN LOCATE STMNT. 
Explanation: Syntax error. The LOCATE statement has the following format: 


LOCATE based variable FILE (filename) SET (pointer variable); 


The based variable must be unsubscripted and must not be a minor structure or 
an element of a structure. 


Examples: 1. LOCATE +1 FILE (OUT) SET (P1); 
2. LOCATE Ai (OUT) SET (P1); 


Explanation: The error may be caused by: 


1. Missing operand. 
2. Two infix operators not separated hy operand. 


WARNING FOR INCORRECT PREFIX IN ENTRY STATEMENT. 
TOO MANY ENTRY POINTS AND/OR ON CONDITIONS IN BLCCK. 


ILLEGAL NULL STATEMENT ІМ ON-UNIT. 


——À— — ла... 


Explanation: The null on-unit must not be specified for the conditions CONV- 
ERSION, ENDFILE, and KEY. | 

END OF LNVALIDLY NESTED DO GROUP. NESTING EXCEEDS. 12 LEVELS. 

Explanation: Implementation restriction. The maximum depth of a nested set 
of DO statements (including repetitive specifications in GET or PUT state- 
ments) is 12. This message is issued as a follow-up to message 5Е008І. 
System Action: The flagged END statement is replaced by a dummy statement. 
ILLEGAL FILENAME IN ON CONDITION. 

ILLEGAL LABEL IDENTIFIER IN ON UNIT. 


Example: DECLARE C DECIMAL FIXED; 
ON CONVERSION GOTO C; 


5Е128І 


5Е126І 


5E1271 


5E1281 


5E1291 
5E130I 


5E1311 


5E1321 


5E1331 
5E1341 
581351 


5E1371 


5E138I 
5Е1Ш0ШІ 
5E1U1I 
581421 
5E1U03I 
5Е1ШШІ 
5E1U5I 


5E1461 


5E1471 


F3 


REVERT STATEMENT WITHOUT CORRESPONDING ON STATEMENT. 


INCORRECT NUMBER OF ARGUMENTS. 

Example: B = SUBSTR(A, 1 1); 

Due to a missing comma in the argument list, the compiler recognizes only two 
arguments. 

OPTIONS MAY NOT BE SPEC. FOR SUBPROCEDURES.  CPTIONS IGNORED. 

BUILT-IN FUNCTION NAME IN INCORRECT CONTEXT. 


Explanation: A built-in function name has explicitly been declared with the 
BUILTIN attribute, but is used in a non-function-reference context. 


Example: DECLARE ABS BUILTIN; 
ABS = ABS + 1; 
Note: Built-in functions without arguments or which have been declared con- 
textually only are not concerned. 
CONVERSION OF ARITH. DATA TO BIT STRING YIELDS RESULT GT 31. 
INVALID KEY. 


MORE THAN 65534 VARIABLES AND/OR CONSTANTS. 


Explanation: An internal overflow of the variable and constant counter of the 


ae ee ee eee ae ee ee ee eee ee 


compiler occurred. 
STACK OVERFLOW. (IF-NEST TOO DEEP). 


Explanation: Implementation restriction: The maximum number of IF statements 


in a nest is 100. 

PROBABLY BAD IF-NEST. 

ELSE IMMEDIATELY FOLLOWS IF. 

ELSE IMMEDIATELY FOLLOWS ANOTHER ELSE. 

ILLEGAL STATEMENT USED AS UNIT IN AN IF STATEMENT. 


Examples: 1. IF element expression THEN FORMAT (format-list); 
2. ТЕ element expression THEN unit-1 ELSE FORMAT (format-list); 


The FORMAT statement is not permitted as unit in an IF statement. 
ELSE WITHOUT CORRESPONDING IF. 

INCORRECT SPECIFICATION OF CONSTANT ARGUMENT. 

TOO MANY STRUCTURES IN STRUCTURE ASSIGNMENT. 

NUMBER OF INTERMEDIATE RESULTS IS TOO BIG. STACK OVERFLOW. 
NON-IDENTICAL STRUCTURING IN STRUCTURE ASSIGNMENT. 

ARRAY USED IN INCORRECT CONTEXT. 

STRUCTURE USED IN INCORRECT CONTEXT. 


INVALID CONVERSION OR ILLEGAL COMBINATION OF DATA TYPES. 
Example: P = A; where A is a character string and P is a pointer variable. 


NON-IDENTICAL NUMBER OF ARRAY ELEMENTS IN ARRAY-ASSIGNMENT. 
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5Е148І Т 


БЕ149І 5 
5E1501 Т 
5Е1521 Т 
5Е153І Т 
5Е15ШІ W 
5Е1551 5 
5Е01561 S 
5E1571 W 
5E1581 Т 
5E159I Т 
5Е1601 Т 
5Е1611 Т 
5Е1621 5 
5E1631 Т 
5Е16ШІ Е 


А 
~ 
ON 


UNPERMITTED ASSIGNMENT ТО FUNCTION VALUE. 


Explanation: The left side of an assignment statement is a built-in function 


which is neither a STRING built-in function nor a pseudo variable. 
NUMBER OF ARGUMENTS IS GREATER THAN TWELVE. 
TOO MANY REPETITIVE SPECIFICATIONS. 


Expianation: Implementation restriction. The number of iteration specifica- 


ee ae Bee — ——— ———— 


tions must not exceed 50. 
Example: DO І = 1 TO 2, 2 TO 3, 3 TO Ч, ..., 51 TO 52; 


System Action: The flagged DO statement is replaced by a dummy statement and 


€ ae ae «аза» € EP че ча анаа 


the following text is ignored. 
PROCESSING OF STATEMENT TERMINATED. (TABLE CVERFLOW). 


Explanation: An internal table overflow occurred during the processing of a 
DO statement. 


Since the DO statement will be deleted from the text string, there will be a 
surplus END statement in the source program. 


User Response: Subdivide statement and recompile. 
POINTER AS ELEMENT OF DATA LIST. 

POSSIBLE ERROR IN FORMAT ITEM IF USED FOR OUTPUT. 

INCORRECT ARGUMENT IN BUILT-IN FUNCTION OR PSEUDC-VARIABLE. 


Example: DECLARE (A,B) CHARACTER (2); 
B = SUBSTR(A,5,4); 


Since A and В are only two characters long, the arguments 5 and 4 in the argu- 
ment list are invalid. 
INVALID NUMBER OF DIMENSIONS. 


Example: A (2 3,1) = 15; where A is declared as a three-dimensional array. 


== тке але — <= 


The error is caused by a missing comma between the integers 2 and 3. 

ERROR IF USED FOR OUTPUT. 

ENTRY NAME OR LABEL ON LEFT SIDE OF ASSIGNMENT STATEMENT. 

Example: LAB: N = 3; DO LAB = A TO B; where A and B are valid expressions. 
R FORMAT ITEM IN ITERATION LIST AT DEPTH GREATER THAN TWO. 

STATEMENT TOO LONG. STATEMENT DELETED. 


Explanation: Internal buffer overflow. 


пр 


User Response:  Subdivide statement and recompile. 
TOO MANY IDENTIFIERS IN PROGRAM. 

CONTROL ITEMS NOT ALLOWED FOR THIS STATEMENT. 

NO LABEL DESIGNATOR IN REMCTE FORMAT ITEM. 

LABEL CONST. IN R FORMAT ITEM NOT INTERNAL TO CRRNT BLOCK. 


Explanation: The R format item and the specified FORMAT statement must be 
internal to the same block. 


5E165I 


5Е166І 


5E1671 


5E169I 
5E1701 


5Е1711 


5E17 21 
5Е173І 
5817491 


5Е1751 


5E1761 


5Е1771 


5E1781 


5E179I 


5E180I 
5Е1811 


5E182I 


5E183I 
5E1841 
5E186I 
5E187I 


5E218I 


NO POINTER VARIABLE IN SET OPTION. 


INCORRECT RECORD VARIABLE. 


RECORD VARIABLE ON WRONG BOUNDARY. 


Explanation: The variable is not on a double-word boundary. An error may 


=== 


occur if later a READ statement with the SET option is issued, and а similar 


variable is used. 

RECORD VARIABLE ON WRONG BOUNDARY. 

RECORD VARIABLE LENGTH NOT IN ACCORDANCE WITH RECORDSIZE. 
INCORRECT VARIABLE IN STRING OPTION. 

INCORRECT NAME IN FILE CPTION. 

Explanation: File name not or incorrectly declared. 
STATEMENT NOT IN ACCORDANCE WITH FILE DECLARATICN. 
INCORRECT ITEM IN DATA LIST. 

NO STRING VARIABLE IN SUBSTR PSEUDO-VARIABLE. 

FORMAT LIST TOO LONG. 

Explanation: Internal buffer overflow. 


FORMAT STATEMENT NOT PRECEDED BY LABEL. STATEMENT DELETED. 


Explanation: A FORMAT statement must be preceded by at least one label. 


TOO MANY FORMAT LABELS IN PROGRAM. 


Explanation: Implementation restriction. The number of labels preceding FOR- 


MAT statements in one program is restricted to 127. 

NESTING OF ITERATION LIST IN FORMAT LIST TCC DEEP. 

REMOTE FORMAT ITEM IN FORMAT STATEMENT. STATEMENT DELETED. 
Explanation: A FORMAT statement cannot contain an R format item. 
System Action: The error statement is deleted from the text string. 
INCORRECT A,B FORMAT ITEM IN GET STATEMENT. 

VICLATION OF FORMAT ITEM RESTRICTION. 

MOD (LENGTH OF RECORD VARIABLE,8) IS UNEQUAL TC FOUR. 

division by 8. 

INCORRECT VARIABLE IN REPLY OPTION. 

WRONG VARIABLE IN SET OR KEYTO OPTION. 

TOO MANY REPETITIVE SPECIFICATIONS IN DATA SPECIFICATION. 


LENGTH OF RECORD VARIABLE GREATER THAN MAXBLCCKSIZE. 


ILLEGAL EXPRESSION IN ASSIGNMENT STATEMENT. 


after 
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5Е2191 5 MORE THAN TWELVE PARAMETERS ІМ PROCEDURE/ENTRY STATEMENT. 


System Action: The parameter list is truncated on the right. 
5E2281 E CHARACTER STRING IN DISPLAY STATEMENT LONGER THAN 80 BYTES. 
5E229I E EVALUATION OF OPTIM. SUBSCR. YIELDS DISPLACEM. GREATER 32K 


Explanation: At least one subscripted variable in this statement is outside 


= = 


the declared bound of the array. 


Example: The semantically wrong statement A(I) = А(1+35000); where А 15 de- 


clared as A(10), will cause this diagnostic message. This error is only 
detected if OPT is specified. 


5Е2301 W IMPLEMENTATION DEFINED SUBROUTINE. 


——— ee —ÓÁ— —Ó———Á—À —Á— 


y ~ 
ғ OVERLAY, IJKTRON, ТЈКТЕСЕ, ІЈКЕХНС. 


tz 
РА 
ro 
ке 
w 
5 
nim 
et 
>: 
о 
3 


rning message will appear for each statement using one of 
D 


5E231I Е TOO MANY ARGUMENTS FOR IJKEXHC IN ONE BLOCK. 
5Е2321 E INVALID ARGUMENT(S) FOR EXHIBIT CHANGED IGNORED. 
5E2331 E UNPERMITTED VALUE OF CONSTANT SUBSCRIPT(S). 


Explanation: Constant subscript(s) too large. The absolute value of the dis- 
placement to the origin of the array is greater than 32767. 


5E234I Е NO SCALE FACTOR GIVEN IN BUILT-IN-FUNCT. 


Explanation: Concerning the built in functions ADD, MULTIPLY, DIVIDE for 


— MÀ — — — — — — 


fixed-scale arguments. 
5E2351 S INTERMED. RESULT IN ADD-FUNCT. TOO LONG.  STATEMT. IGNORED 


Explanation: Length of necessary working space (resulting fror precision and 
і mits 


Scale of the arguments) greater than hardware defined iimits (only for fixed 


scale arguments). 

5Е236І S INTERMED. SCALE-FACT. EXCEEDS PERMITTED RANGE 
Explanation: The intermediate scale factor іп the built-in-functions ADD, 
MULTIPLY, or DIVIDE is greater than 127 or less than -128 (only for fixed- 
Scale arguments). 

5Е237І S EVEN PRECISION HERE NOT ALLOWED. CHOICE ODD TARGET PRECISION. 

5Е2381 Е TIME/DATE/OR NULL ASSUMED ТО NAME PL/I BUILT-IN-FUNCTIOCN 


Explanation:  Builtin functions without arguments should be explicitely de- 


clared with the BUILTIN attribute. 
552391 Е UNKNOWN FONCTION OR SUBROUTINE. ATTR. ENTRY ASSUMED 


Explanation: Entry names must be explicitly declared with the attribute 


——— ————— — —M— 


ENTRY. 
5GO1I PROGRAM BLOCK GREATER THAN 32K. CCMPILATICN TERMINATED. 
5G02I SOURCE PROGRAM TOO LONG.  COMPILATION TERMINATED. 
5G03I STATIC STORAGE OVERFLOW.  COMPILATION TERMINATED. 
56081 AUTOMATIC STORAGE OVERFLOW. COMPILATION TERMINATED. 
56051 MORE THAN 256 ESID NUMBERS NECESSARY. COMPILATICN TERMINATED. 


56061 


56071 
54011 


54021 


MORE THAN 65,534 VARIABLES AND/OR CONSTANTS. COMPILATION TERMINATED. 


POSSIBLE RECURSIVE USE OF EXTERNAL PROCEDURE. COMPILATION TERMINATED. 


SUCCESSFUL COMPILATION. 


COMPILATION IN ERROR. 
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Append ix G. Object-Time Diagnostic Messages 


Note: For a discussion of the program- 


checkout facilities of the compiler, refer 
to the section Program-Checkout Mani 


14 
ч. RE чм Мм? М? МА ч ^ VA Ти КД. А 


The format of object-time diagnostic mes- 
Sages is as follows: 


5LOOI ccqqqqqq aaaaaa ERROR nnnn 


5LOOI is a prefix to identify the message 
as a PL/I object-time message. 


cc are Ө һехааес1та1 digits identi- 


sage, (see the message 
` 
2 


от, 


are six hexadecimal digits qualify- 
ing the message code with the 
address of a file, if applicable. 
Otherwise six zeros. 


444444 


are six hexadecimal digits specify- 
ing. the address where the error was 
detected. If the error was 
detected in a library routine, 
aaaaaa is the address of the 
instruction that follows the call 
of the routine in the PL/I object 
program. 


aaaaaa 


is the number of the source state- 
ment that caused the error. This 
number is printed oniy if STMT was 
specified in the PL/I PROCESS card. 
If STMT was not specified or when 
the compiler cannot determine the 
statement that caused the error, 
nnnn is set tc 0000. 


nnnn 


The messages are listed below by message 
code number (cc above). 


Notes: 

1. For errors not raising an ON-condition 
(other than ERROR), a message is 
printed for the specific error and the 
ERROR condition is raised. This app- 
lies to all errors with a message code 
higher than 10. 

2. If SYSLST is not yet opened (for 
example, because of insufficient 
storage available for DSA), some of the 
messages may be printed only on the 
console. 


LIST OF MESSAGE CODES 
PL/I ON-Condition Comments 


These object-time diagnostic messages are 
issued only if an enabled PL/I ON-condition 
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is raised and no ON-unit is currently being 
executed for this condition. 


01 OVERFLOW 

02 UNDERFLOW 

03 ZERODIVIDE 

ОЧ FIXEDCVERFLOW 


05 SIZE 
06 CONVERSICN 
09 ERROR 


OA ENDFILE 
0С TRANSMIT 


ЈЕ RECORD 


Only the last four conditions use the file- 
name qualification. 


With indexed-sequential files the END- 
FILE condition will also ke raised if a key 
higher than the last one on the file is 
requested. If the ENDFILE condition is not 
enabled for the file, the message 80 - NO 
RECORD FOUND - will be issued. 


Severe programming errors might lead to 
program-check hardware interrupts during 
the execution of a PL/I program. These 
possible interrupts are identified by the 
following codes: 


11 Operation Exception 

12 Privileged-Operation Exception 
13 Execute Exception 

14 Protection Exception 

15 Addressing Exception 

16 Specification Excepticn 

17 Data Exception 

1E Significance Exception 


Each of these exceptions is briefly dis- 
cussed below. 


11 Operation Exception. When an operation 
code is not assigned or the assigned opera- 
tion is not available on the particular 
model, an operation excepticn is reco- 


gnized. The operation is suppressed. 
The instruction-length code is 1, 2, or 3. 
12 Privileged-Operation Exception. When a 


privileged instruction is encountered in 
the problem state, a privileged-operation 
exception is recognized. The operation is 
suppressed. 


| The instruction-length code is 1 or 2. 


- STD, 


13_Execute Exception. When the subject 
instruction of EXECUTE is another EXECUTE, 
an execute exception is recognized. The 


operation is suppressed. 
The instruction-length code is 2. 


14 Protection Exce When the key of 
an instruction halfword or an operand in 
storage does not match the protection key 
in the PSW, a protection exception is 
recognized. 


The operation is suppressed on a store 
violation, except in the case of STORE MUL- 
TIPLE, READ, DIRECT, TEST, AND SET, and 
variable-length operations, which are 
terminated. 


Except for EXECUTE, which is suppressed, 
the operation is terminated on a fetch 
violation. 


The instruction-length code is 0, 2, or 3. 


or a control word outside the available 
storage for the particular installation, an 
addressing exception is recognized. 


In most cases, the operation is ter- 
minated for an invalid data address. Data 
in storage remain unchanged, except when 
designated by valid addresses. In a few 
cases, an invalid data address causes the 
instruction to be suppressed - AND (ND, 
EXCLUSIVE OR (XI), OR (OI), MOVE (MVI), 
CONVERT TO DECIMAL, DIAGNOSE, EXECUTE, and 
certain store operations (ST, STC, STH, 
and STE). The operation is suppressed 
for an invalid instruction address. 


The instruction-length code normally is 1, 
2 or 3; but may be 0 in the case of a data 
address. 


есітгісасіоп Ехс A specifica- 
tion exception is recognized when: 


1. A data, instruction, or control-word 
address does not specify an integral 
boundary for the unit of information. 


2. Тһе R, field of an instruction speci- 
fies an odd register address for a pair 
of general registers that contains a 
64-bit operand. 


3. А floating-point register address other 
than 0, 2, 4, or 6 is specified. 


4. The multiplier or divisor in decimal 
arithmetic exceeds 15 digits and sign. 


5. The first operand field is shorter than 
ог equal to the second operand field іп 
decimal multiplication or division. 
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6. Тһе block address specified in SET 
STORAGE KEY or INSERT STORAGE KEY has 
the four low-order bits not all zerc. 


7. A PSW with a nonzero protection key is 
encountered when protection is not 
installed. 


The operation is suppressed. The 
instruction-length code is 1, 2, or 3. 
17 Data Exception. А data exception is 
recognized when: 


1. Тһе sign or digit codes of operands іп 
decimal arithmetic or editing opera- 
tions or in CONVERT TC BINARY are 
incorrect. 


2. Fields in decimal arithmetic overlap 
incorrectly. 


3. The decimal multiplicand has too many 
high-order significant digits. 


The operation is terminated. The 
instruction-length code is 2 or 3. 


iE Significance Exception. When the result 
of a floating-point addition or subtraction 
has an all-zero fraction, a significance 
exception is recognized. 


The operation is completed. The inter- 
ruption may be masked by PSW bit 39. The 
manner in which the operation is completed 
is determined by the mask bit. 


The instruction-length code is 1 or 2. 


21 STORAGE OVERFLOW 
There is not sufficient storage avail- 
able for dynamic storage allocation. 


22 INVALID LABEL 
The label variable in a GOTO statement 
does not contain a valid label. 


23 SECOND CALL OF MAIN 
A procedure with the option MAIN is 
called by a PL/I program. 


24 PARAMETER NOT ON DOUBLE-WORD BOUNDARY 
Procedure expecting double-precision 
floating-point variable as parameter 
has been passed single-precision value. 


25 INVALID SIGN CHARACTER 
Incorrect character for sign position 
of PICTURE data containing T, I, or R 
in specification. 


Mathematical and Arithmetical Subroutines 


њи 


30 X LT 0 IN SQRT(X) 
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о 
G2 


tad 
= 


35 
36 
37 


38 


39 


ЗА 


ABS(X) GE (2**18)*K IN SIN(X) 
OR COS(X) (K-PI) OR SIND(X) OR 
COSD(X) (K=180) 


ABS(X) GE (2**18)K IN TAN(X) 
(K=PI) OR TAND(X) (K-180) 


чу nae RITA T ст NATIT ADTMYy та ТА NI (X) =~ 
X TOC NEAR SINGULARITY ІҢ TAN(X) or 
TAND (X) 

Y=X=0 ІМ ATAN(Y,X) 


X. GR 174.6 IN SINH(X) OR COSH(X) 

X GR 174.6 IN EXP(X) 

X GR 1 IN ATANH(X) 

X LE 0 IN LOG(X) OR LOG2(X) OR LOG10 (X) 
OR X LE 0 AND Y NOT FIXED POINT (P,0) 
IN EXPRESSION X**Y 

X-0, Y LE O IN X**Y 


X=0, N-0 IN X**N 


Mathematical and Arithmetical Subroutines 


—— 


мо A a atat чыз EY пите a. аз e ш 


{Long Arguments) 


40 


41 


42 


43 


uu 
45 
46 
47 


48 


X LT 0 ІМ SQRT(X) 


OR COS(X) 
(K=180) 


ABS(X) GE (2**50)*K IN SIN(X) 
(К-РІ) OR SIND(X) OR COSD(X) 


ABS(X) GE (2**50)*K IN TAN(X) (K-PI) OR 


TAND(X) (K-180) 


X TOO NEAR SINGULARITY IN TAN(X) CR 
TAND(X) 


Y-X-0 IN ATAN(Y,X) 

X GR 174.6 IN SINH(X) OR COSH(X) 
X GR 174.6 IN EXP(X) 

X GR 1 IN ATANH(X) 


LOG2(X) OR LOG10(X) 
FIXED POINT (P,0) 


X LE 0 IN LOG(X) ОВ 
OR X LE 0 AND Ү NOT 
IN EXPRESSION X**Y 
Y LE 0 IN X##¥ 


T т? т 
221: d. 


X=0, N-0 IN X**N 


Other Built-in Functions 


—— == 
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= n MAP UMP gru шш e un mae «ее NS ш tum 


Y-0 IN MOD(X,Y) 
Binary fixed arguments 


Y-0 IN MOD(X,Y) 
Decimal fixed arguments 


Y=0 OR 
ABS(X/Y) GT 7.2*10**75 IN MOD(X,Y) 
Short floating-point arguments 


54 


сл 
an 


61 


62 


63 


64 


65 


66 


Ү=0 OR 
ABS(X/Y) GT 7.2%10%%75 IN MOD(X,Y) 
Long floating-point arguments 


MOD(X,Y) GE ABS(Y) 
Short floating-point arguments 
MOD(X,Y) GE ABS( 


l 
Long floating-poi 


17 


\ 
РА 
nt arguments 


-point arguments will 


мор (X,Y)=X-b 


If the exponent of X is so high that 
X*Y has the same value as X, then MOD( 
X,Y)-20; message 54 or 55 will be 
generated in such a case. 


FORMAT ERROR 
Illegal combination of data list item 
and format list item. 


END OF STRING 


Attamnt іл raan nor 
Код ме Ме Sd € ми m чыма мыл AA da 


чу Ко heownnn tha 
FV А. em М ме о Э аа МА 5-2... 


specified string іп a GET EDIT or РОТ 
EDIT statement with the STRING option. 


ILLEGAL USE OF CONTROL FORMAT OR OPTION 
An invalid PAGE, SKIP, LINE, or COLUMN 
format is specified for a file. 


ILLEGAL USE OF STREAM FILE 

Attempt to execute a disallowed GET 
EDIT or PUT EDIT statement for a STREAM 
file. 


This error message may also occur if a 
program processes file labels, but the 
job-control LBLTYP card has been 
omitted in the job-control deck for the 
program. 


ILLEGAL USE OF CONSECUTIVE BUFFFRED 
FILE 

Attempt to execute a disallowed READ, 
WRITE, REWRITE, or LOCATE statement for 
a CONSECUTIVE BUFFERED file, 


This error message may also occur if a 
program processes file labels, but the 


веј ТОТ тУт nard hac haan 
JM V ML A VA. NU Adl idd 1 г МУСА ЛОМА БАСА а> MEEL 


omitted in the job-control deck for the 
program. 


ILLEGAL USE OF CONSECUTIVE UNBUFFERED 

FILE 

Attempt to execute a disallowed READ, 

WRITE, or. REWRITE statement for a CON- 
SECUTIVE UNBUFFERED file. 


This error message may also occur if a 
program processes file labels, but the 
job-control LBLTYP card has been 
omitted in the job-control deck for the 
program. 


67 


69 


6A 


6B 


6c 


6D 


6E 


6F 


70 


71 


ILLEGAL USE OF REGIONAL FILE 

Attempt to execute a disallowed READ, 
WRITE, or REWRITE Statement for а 
REGIONAL file. 


This error message may also occur if a 
program processes file labels, Бис the 
job-control LBLTYP card has been 
omitted in the job-control deck for the 
program. 


PAGE SIZE OPTION FOR NON-PRINT FILE 


ILLEGAL USE OF INDEXED SEQUENTIAL FILE 
Attempt to execute an invalid READ, 
WRITE, or REWRITE statement for an 
INDEXED SEQUENTIAL file. 


ILLEGAL USE OF INDEXED DIRECT FILE 
Attempt to execute an invalid READ, 
WRITE, ок REWRITE statement for ап 
INDEXED DIRECT file. 


This error message may also occur if a 
program processes file labels, but the 
job-control LBLTYP card has been 
omitted in the job-control deck for the 
program. 


INPUT DATA ELEMENT TOO LONG 
Attempt to read an element of excessive 
length in a GET LIST statement. 


TOO MANY CONCURRENT I/O ERRORS FOR 
STACK SIZE 

Indicates that more than three files 
have WLR and/or TRANSMIT errors being 
handled at the same time. 


FILE IN ERROR NOT IN STACK 

Indicates that a file with WLR or TRAN- 
SMIT error flagged in the DTF appendage 
is not in the error file stack. 

This message can also occur if the 
LBLTYP card has been omitted, thereby 
causing label data to overlay and set 
the appropriate bit in the DTF 
appendage. 


ILLEGAL USE OF STREAM FILE 

Attempt to execute a disallowed GET 
LIST or PUT LIST statement for a STREAM 
file. 


ERROR DURING POSITIONING OF INDEXED 
SEQUENTIAL INPUT FILE 

An error has occurred during the posi- 
tioning to the record key specified in 
the KEY option of a READ statement. 


ERROR DURING INITIALIZATION OF INDEXED 
SEQUENTIAL OUTPUT FILE 

The cylinder index area is not large 
enough to accommodate all entries 
required to index each cylinder speci- 
fied for the prime data area. 
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7B 


ERROR DURING INITIALIZATION OF INDEXED 
SEQUENTIAL OUTPUT FILE 

The master index area is not large 
enough to accommodate all entries 
required to index each track of the 
cylinder index. 


END OF STRING 

Attempt to read or write beyond the 
Specified string in a GET LIST or PUT 
LIST statement with the STRING option. 


If the ERROR condition is raised as a 


result of System action for the KEY condi- 
tion, one of the following messages may be 
printed to give a more specific description 


of 
to 


80 


81 


82 


83 


84 


87 


the error that caused the KEY condition 
be raised. 


NO RECORD FOUND 
The record to be retrieved by a READ 


KEY from an INDEXED file has not been 
found in the data file. 

OVERFLOW AREA FULL 

There is no more space available in the 
overflow area(s) for the record to be 
added to an INDEXED DIRECT file by a 


WRITE KEYFROM statement. 


PRIME DATA AREA FULL 

The prime data area has been filled 
while creating or extending an INDEXED 
SEQUENTIAL file by a WRITE KEYFROM 
statement. 


DUPLICATE RECORD 

The record being added by a WRITE KEY- 
FROM STATEMENT to an INDEXED SEQUENTIAL 
or DIRECT file has a duplicate record 
key of another record in the file. 


SEQUENCE CHECK 

The record being written by a WRITE 
KEYFROM statement to an INDEXED SEQUEN- 
TIAL file is not in the sequential 
order required. 


FORMAT ERROR IN INPUT 
a) Delimiter is neither blank nor comma 


b) Character B is missing in external 
format of a bit string 


c) External format of data item is 
incompatible with internal declara- 


ticn; for example: 

aa ani as poseer me 1 
| External | Internal | 
----------------і------- -------- + 
{Character string|Bit string | 
алы SS See ae ЫР ee И ee a 1 
{String data | Numeric, E, | 

| | F-format | 
окси а лы ii Lu Len ape ate ae ыы 1 
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Appendix Н.І/О Statement Format And On-Condition Checklist 





ПСЕ 


Ї 
1 
SE NTI 
| егіні QUENTIAL DIRECT 
CONSE - REG- REG- IN- 
Р | cutive | CONSECUTIVE | INDEXED | IONAL ! ОМА. БЕХЕБ 
і | Ба UNBLIFFERED 1 (1) 3) I || 














INPUT/OUTPUT NOT DECLARED, OUTPU 








VALID INPUT/OUTPUT 
STATEMENT FORMATS 
AND APPLICABLE 
“N-CONDITIONS 












| 
i 
| 
| TYPE OF FILE 














































BACKWARDS, INPUT NOT DECLARED 
INPUT/OUTPUT NOT DECLARED, INPUT 








| 
= о 
= 9/2) 2/2) | 
ш 
< 
мы. | sist |1515) i 2l | ! 
2 = | 5155 | 
„| = шоб 
ele ole шт | | | 
5212 SBHH 
2 
„| 5|5 |506 
=1010 20| 5 
FILE (filename) MIM | 


1 


ооо 
| FILE (filename) INPUT ||| 
ЕЊЕ filename) OUTPUT | [| | м 
CLOSE | FILE (filename) Іс о/0|о/0/0|о/0|0/0|0 о|о/о/0|о/0|0|о|о|о|5|о) 
КЕ еее стае 
зина МЕНЕ 





















FILE (FilenomeMPAGEILINE (n)|SKIP (n) LIST (data) Т Е ика Ж | | | | 
ем filename) INTO Read 55555 ИШ [e ef L| ИЕ НЕ LT ШИ 
| FILE Gilenome) SET бөлеу 11 јој јој | || | _ ||| ||| ||| | | 
READ FILE (filename) INTO (variable) KEY (expression) | | || | | | | | јој felo| [ојо| lo[olo| 

FILE Filename) INTO (varioble) КЕУТО (variable) (ap HH 


E FILE (filename) | | | | | | јој | | | Rope ee dee dod ПА р] 
REWRITE 




















FILE (filename) FROM (variable) EN "ЕЕЕ 

ut re OM tea езшш Р РТ И 8 tal Te 

ЖӘН КІСІ И ЖШ ЖЕНШ НИЕ ҮЙІН МН 

WRITE FILE filename) FROM (variable) aa | о| | је | | јој | | | | | | | | | || 

FILE (filename) FROM (variable) KEYFROM (expression) ПИШ ЕШ ИШИ TAM | fol of [оро Го 

StS ТЕГ 

ee ree уызы покани ск сот зе ыыы ы (СС 1-4 eR RS ЕЕ 
ENDFILE (filename) o 01010 о 

ENDPAGE (filenome) BS DE Tu ШЕШ ee НИ ЕЕ НН ee 

а НЕ ЕШЕ 22.040) э оўо tetotol 

7115152|55/:2551516/5101516191012|615 

ојојојојој КОП |ојојојојојојојојојојој 








Polat Aletha ma re 
VMVINDITIUINS 


WHICH MAY 
OCCUR 































Symbols used: М = Use of this statement is mandatory 


О = For ИО statements: Use of this statement format is optional 
For ON conditions: This condition may occur 


* = Note that GET/PUT STRING is not an ЏО statement and may be used without 
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ЕЕС ORD 
CONSECUTIVE REGIONAL INDEXED 


^or | о мо | | оф | о кожни | 
NOT PRINT BUFFERED UNBUFFERED @) 9 SEQUENTIAL | DIRECT 
PRINT амл | олти а DASD ONLY 


FILE 
ATTRIBUTES 
AND OPTIONS 


[roe 
DASD 
Е CARD /PRINTER 


ia БЕ БЕ ЫЙ ШЙ 
ЖЕЛ ВЕН ИЕ БГ Л ЧИЙ ЖЕР о ERE ТОЙ ЕЙ ИЙ Н СР ЕШ ЕС ЕГИ ЕТИ ETE C ЕГЭ ЕС БЕЙ ЗС 
BACKWARDS ele ok eee ce РЕСЕ БИ hole ete rr 
saith oe fs isis АДЕ 
LI LUE I 82 05 | 2] 212 | НИ! БИ ПА НН ЕУ САН НИ 
UNBUFFERED ШЕНІ БІНЕ el a iN БЫЛЫҒЫН 


Setter ЕЛИТЕ е 
авари Е: ан а 
ЕЗ 





ag 
2501 i 2520125401 1442) Е ва T ES 
14031 14041 144311445) J- || аа 
та БІНЛЕЛНЕ ЖЕЛІН ECT SMS UR UG 

















U (maxblocksize) 

F (blocksize) | 

|е Glocksize, recsize) мН ЕЗ ЧЕ ШИ МЕЗЕЗЕЗІМЕЗІЗЕЛ БИ ИН ЭЕ p b ki 

У (пафосто) 444-14-44 

uz: БЕНЕН ЫЫ ЫЕ 

BUFFERS (2) | ој ој ој ој оо [о [оо Bees ВЕ eee T 

eft en M —— ee eee 

LEAVE — HV оо f о | [о үр ү —— 

NOLABEL ome кеј | lof | Besser ES 

NOTAPEMK Hf te БЕШИ НЕ НЕ БЕП: ЭШЕ Ж ШИ НА ЛЕ ПР ИЕ КЫ И ТАЙ ЕЕ ШИ ЭН ЖО О 
E ИШГЕ еее tot ot Це 

јојојојој ojojo] ЕСЕЛЕЙ рр [р | STIT] 





KEYLENGTH fee 9 - 255 for REGIONAL (И | 
1 - 255 for INDEXED 

EXTENTNUMBER (n) ж 

INDEXMULTIPLE 


HI GHINDEX ((231112314 | 23213) 


опас 6) [87075 A одо LT ПИ А ПА О А ЕП ПИ ПА ПА fet И fa 
ire За Ба ae Eso Gd e semi 


S = Attribute or option must be specified, No entry is permitted where a blank 
D = Default attribute or option if not specified, Ж UNBUFFERED is not permitted for files residing on a 2321 Dato Cell Drive. 
O= Optional attribute or option, Specify if applicable, *#For INDEXED files, EXTENTNUMBER (n) must be specified [2 < n < 254). 
C= Choice must be made between these options. For REGIONAL files, EXTENTNUMBER (п) is optional [0< n< 256). 
Е = Must be specified here ог in the OPEN statement (but not in both poan: 

= Optional for unblocked files, The default value for blocked files is n= 
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Appendix J. Default Attributes of Coded Arithmetic Variables 







DECLARED ATTRIBUTES DEFAULT ATTRIBUTES 








DECIMAL FIXED (5,0) | 
| DECIMAL FLOAT | ғ | 
| BINARY FIXED | (15) | 
| BINARY FLOAT | (21) | 
| DECIMAL | FLOAT (6) | 

BINARY FLOAT (21) 

FIXED DECIMAL (5,0) 

FLOAT DECIMAL (6) 

None - initial character | - N BINARY FIXED (15) 

| 


БК,ГААТ Рл 
None - al! others | DECIMAL FLOAT 6} 
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Appendix К. Restrictions to The PL/I Subset Language 


ALIGNED or UNALIGNED 


Must not be specified for minor-structure 
names. 


Arithmetic_Constants 

Any embedded blanks in arithmetic constants 
will be deleted from the number string and 
no error message will be given. However, 
embedded blanks in repetition-factor fields 
of PICTURE items are not deleted. 


Arrays 


The maximum number of arrays in a source 
module is 32. 


а 


Arrays of structures аге not implemented. 


Attribute Factorization 
The maximum attribute factorization depth 
is 8. 


а... corp о о шшш о е cte чеш ита p 


Binary fixed-point numbers may have a 
length between 1 and 31 bits. This also 
applies to all intermediate results in 
binary fixed-point form. 


Binary Floating-Point Data 


Binary floating-point data may have a 
length between 1 and 53 bits. 


Bit strings may have a length between 1 and 
64 bits. The default alignment attribute 
is not implemented; bit strings are aligned 
by the D-Compiler. A warning message is 
given if a bit string associated with the 
default alignment attribute occurs within a 
structure. 


— —ÓÓ—Ó— 


Blanks embedded in arithmetic constants 
will be deleted (see also Arithmetic 
Constants). 

Blanks between operators will also be 
deleted.  E.g., X * * Y; will be inter- 
preted as X**Y. Similarly, 'XXX' 'YYY' 
will be interpreted as 'XXX''YYY', result- 
ing in a character-string value of XXX'YYY. 


ILL —————————M— 


The size of any internal or external pro- 
gram block (exclusive of data) is 
restricted to 32K. The size of an external 
block plus all of its internal blocks 
(exclusive of data) must not exceed 64K. 


The depth of nested blocks is restricted 
to 3. The external procedure counts as 
depth 1. 


The total number of blocks in an extern- 
al procedure (including the external proce- 
dure) must not exceed 63. 


Blocksize Options 


The block length must be at least 1 byte 
(18 bytes for magnetic tape files) and must 
not exceed 32,767 bytes. The device types 
and corresponding maximum block lengths are 
as follows: 


2540 80 
2540 (CTLASA, CTL360) 81 
1442 80 
1442 (CTLASA, CTL360) 81 
2520 80 
2520 (CTLASA, CTL360) 81 
2501 80 
1403 (PRINT attribute or CTLASA or 133 
CTL360) 
1403 (no PRINT attribute) 132 
1404 (PRINT attribute or CTLASA or 133 
CTL360) 
1404 (no PRINT attribute) 132 
1443 (PRINT attribute or CTLASA or 145 
CTL360) 
1443 (по PRINT attribute) 154 
1445 (PRINT attribute or CTLASA or 114 
CTL360) 
1445 (no PRINT attribute) 113 
2400 (no PRINT attribute) 32,767 
2400 (PRINT attribute) 145 
2311 (no key, no PRINT attribute) 3625 
2311 (PRINT attribute) 145 
2311 (including key) 3605 
2314 (no key, no PRINT attribute) 7294 
2314 (PRINT attribute) 145 
2314 (including key) 7249 
2321 (no key, no PRINT attribute) 2000 
2321 (PRINT attribute) 145 
2321 (including key) 1984 


The block size option V must include the 
control fields for the blocks and records. 


Only fixed-length unblocked records are 
permitted for STREAM files. | 
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The block size options V and U and the F 
option with the record size option are per- 
mitted for magnetic tape files and disk 
files only. 


Built-in Functions 
String arguments must not be used in the 
ROUND built-in function. 


Bit arguments must not be used with the 
UNSPEC built-in function. 


Character Strings 


Character strings may have a length between 
1 and 255 


бачило 


Compatibility with OS F PL/I 


1. A GOTO statement which branches direct- 
ly into an iterative DO loop will not 
be diagnosed as an error by the D Com- 
piier, aithough such a statement is not 
allowed in the language, and is flagged 
as illegal by the F Compiler. 


2. Certain statements are not recognized 
by the F Compiler (see DYNDUMP, 
IJKEXHC, ... in this Appendix). 

3. The I/O ENVIRONMENT attributes are not 
recognized by the F Compiler. 

Refer al SO to 


Appendix В. ТӨМ О: СЕГЕ 


a — че чао ED дене рім 
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No. GC 28-8202. 


Conversion 


Arithmetic to bit string: 
The scale factor must be less than the 
precision. 


Bit string to arithmetic: 
The maximum length of the bit string to be 
converted is 31. 


Data_Storage 


Static - internal: 

The static storage for any external proce- 
dure (excluding external data) must be less 
than 64K, 


Automatic: 
The automatic storage area per block must 
be less than 64K. 


Data aggregates: 


Each individual data aggregate must be less 
than 32K. 
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Decimal Fixed-Point Data 
Decimal fixed-point numbers may have a 
length between 1 and 15 digits. This also 


applies to all intermediate results in 
decimal fixed-point form. 


ішаі Floatin 


Decimal floating-point numbers may have a 
length between 1 and 16 digits. 


DECLARE Statement 


The length of a DECLARE statement is unre- 
stricted; however, the length of one 
declaration-unit appearing in a DECLARE 
statement is restricted to 


e 136 syntactical elements, if 10K bytes 
are available to the compiler, and to 


• 2000 syntactical elements, if 46K bytes 
are available to the compiler. 


One declaration-unit is delimited by 
• the keyword DECLARE and a semicolon, or 


e the keyword DECLARE and a first-level 
comma, or 


ә two first-level commas, or 
• a first-level comma and а semicolon. 


Each parenthesis, identifier, comma, 
attribute, and constant is counted as one 
syntactical element. A character-string 
constant in an INITIAL-list counts as two 
syntactical elements. Consider the follow- 
ing example: 


DECLARE (X FIXED, D FLOAT) STATIC, 
(A INITIAL (7), B(10)) EXTERNAL, 
NAME CHARACTER (4) INITIAL 
('* ABCD'); 


The above DECLARE statement consists of 
three.declaration-units, the first of which 
contains 8, the second 13, and the third 10 
syntactical elements. 


DEFINED Attribute 


A bit class variable must not be a DEFINED 

item. The attributes for the DEFINED item 

and the base identifier will not be checked 
to determine whether they correspond to the 
rules for overlay defining. 


Dimension Attribute 


The maximum number of dimensions is 3. 

Each bound must be an unsigned integer less 
than 32,768. The dimensicn attribute may 
be factored. 


DISPLAY Statement 

The result in the message expression in the 
DISPLAY statement must not exceed 80 chara- 
cters. If the REPLY option is used, the 
message must be followed by the EOB (End of 
Block) condition by pressing the appropri- 
ate keys. 


For Communications". 


DO Statement 
The number of iteration specifications in a 
DO nest must not exceed 50. 


The maximum depth of a nested set of DO 
Statements is 12. For details on repeti- 


The names DYNDUMP, IJKEXHC, IJKTRCN, IJK- 
TROF, and OVERLAY are not recognized by the 
OS PL/I compiler. Consequently, the CALL 
Statement referring to one of these names 
will result in an unresolved external 
reference from the linkage editor under the 
OS PL/I compiler. Under the D-level com- 
одјек, a warning message is issued for each 
Statement using one of these names. 


END Statement 


If a label follows the END statement, it 
must be the label of the nearest unmatched 
PROCEDURE, BEGIN, or DO statement. If a 
BEGIN or DO statement is preceded by more 
than one label, only tne one closest to the 
Statement identifier may be used with the 
END statement. 


—— ee ae ee ee — —— ee ee ee =e 


The exponent subfield for decimal and 
binary floating-point constants is 
restricted to 3 digit positions for binary 
and 2 digits for decimal constants. 


Files_(unbuffered) 

For unbuffered files the RECORD condition 
will not be raised for records of incorrect 
length, because for the implementation of 
unbuffered files the system work files have 
been used (compiler enters the DTFSD para- 
meter TYPEFLE=WORK in the DTF table). 


FORMAT Statement 

Replication factors: 

The replication factor in a FORMAT state- 
ment may range between 1 and 255. 

Tne depth of nested replication factors in 
a format list of a FORMAT statement is 
limited to 2. 


Format constants: 

The format constants must be such that w, 
а, в, and р are decimal integer constants. 
Only p may be signed (positive or nega- 
tive). The A, X, LINE, and COLUMN field 
widths must be less than 256. The B field 
width must be less than 65. 

The E and F field width must be less than 
33. This width includes the sign for out- 
put fields even when they are positive, 
1.е., written as a blank. A SKIP must he 
less than 4. 

The exponent subfield for input data 
described by the E format specification is 
limited to 2 digit positions. 

The exponent subfield fcr output data 
described by the E format specification is 
always written with 2 digit positions. 


GET_Statement 

The replication factor in a format list in 
GET or PUT statements may range between 1 
and 255. 


The depth of nested replication factors 
in a format list of GET or PUT statements 
is restricted to 5. If the format list 
contains a remote format item that is con- 
tained in a replication nest, it must not 
be at a depth greater than 2. 


The depth of a nested set of repetitive 
specifications as well as the total number 
of repetitive specifications in GET and PUT 
Statements are restricted to 11. 


Identifiers 

The length of EXTERNAL identifiers must not 
exceed 6 characters. This also applies tc 
names that are external by default, such as 
file names, names of external procedures, 
etc. 


iF Nesting 


The maximum number of IF statements in a 
nest is 100. 


——— —ÁÀ—À —À —À —À —M— —À —À —ÓÀM— — ——— —À — — 


The identifiers DATE, NULL, and TIME shculd 
always be declared explicitly. If they are 
not explicitly declared a warning message 
is issued, and the BUILTIN attribute is 
assumed. 


INITIAL Attribute 


The length of the INITIAL-list for a 
character-string array is restricted by the 
following formula: 


NC * LE + 18 * NF < NI 
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where 


Nc = the number of constants in the 
INITIAL-list 

LE = the length of one array element 

NF = the number of iteration factors 

NI = 1500 (if 10K are available to the 

compiler) 

(if 46K are available to th 


compiler) 


18008 


а М м ~ ~ 


е 


Consider the following example: 


DECLARE CH(10) CHARACTER(250) INITIAL 
((3)(2)*А','В",(2)'С',*О*,*Е'*,'Е'*, 
'G','H'); 


The INITIAL-list in the above DECLARE 
Statement contains eight constants and one 
iteration factor. String repetition fac- 
tors (as іп (2)'A' and (2)"С") are not 


counted. The length of one array element 
is 250. 

Application of the above formula yields 
a result of 2014 which is in error if NI = 
1500. 


The KEY condition will not be raised for 
REGIONAL files if an attempt is made to add 
a duplicate key by a WRITE statement. 


Labels 

The total number of labels for all remote 
FORMAT statements in an external procedure 
must not exceed 127. This restriction is 
independent of the size of the available 
background program area. 


Since environmental information is 
ment, a static label variable must be 
initialized each time a procedure is 

activated. 


The statement РОТ LIST(NULL); - where NULL 
is declared as the built-in function - will 
not be diagnosed as an error, but will be 
executed giving unpredictable output data. 


——Ó— —Ó M 


Internal names: 

The maximum number of names in all DECLARE 
Statements of a program block is 3048. The 
maximum number of names given all its 
attributes by default is 3048. 
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Note: The above restrictions are applic- 
able only if the source program is compiled 
on a 16K system. The restrictions are 
eased considerably with the availability cf 
additional core storage. 


External names: 
The number of external names must not 
exceed 255. 


Namac otf avtarnal eda mdr c 


эз Саак TMA ме МОЛ. 11642. Str Қ, ал. 
count as two names. This restriction is 
independent of the size of the available 


Ка 1 


background program area. 

Note: The number 255 includes the nares of 
all library subroutines used by this 
external procedure. 


Total number of names: 


The total number of distinct internal and 
external names in a source program must not 
exceed 32,000. This restriction is inde- 
pendent of the size of the available 


background 


While an I/C statement is active, no other 
I/O statement must be activated (GET and 
PUT STRING are considered I/O statements in 
this connection). Thus, in the following 
example the second PUT statement is not 
allowed since it is 'nested' in the first 
one. 


PUT FILE (X) EDIT (FUNCT(PAR1, PAR2,....) 
(format list); 


= 


FUNCT: PROCEDURE (PARA1,PARA2,....) 
RETURNS (CHAR(120)); 
DCL Y CHAR (120); 


PUT STRING (Y) EDIT (data list) (format 
list); 


е 


RETURN (Y); 
END FUNCT; 


ON Statement 

If the condition of the ON statement is 
CONVERSION, ENDFILE, or KEY, the action 
must not be the null statement. A prefix 
is not allowed in an ON statement. 


ON ENDFILE must not be specified with 
default files. When a program uses an 
implicit file declaration, such as GET FILE 
LIST (A,B,C); it is not possible to use ON 
ENDFILE (SYSIN). Therefore, when the END- 
FILE condition is raised, a message occurs, 
and the job is cancelled. 


When a key error occurs in a WRITE sta- 
tement, the KEY condition is raised during 
execution of the current statement or the 
next I/O operation. 


The standard system action for FIXEDO- 
VERFLOW is comment and raise the ERROR 
condition. 


PAGESIZE Option 
The default condition is the size specified 
by the line count of the system. 


Parameters 


The number of distinct parameters of a pro- 
cedure must nct exceed 12. The same para- 
meter appearing in a number of parameter 
lists of the same procedure (one PROCEDURE 
Statement and several ENTRY statements, 
each. with parameter lists) is considered as 
only one parameter. 


Entry name parameters must be explicitly 
declared with the ENTRY attribute. 


PICTURE Attribute 


A PICTURE specification must have at least 
one PICTURE character other than M, V, K, 
or G. Arithmetic pictures must not have 
more than 32 characters excluding М, V, К, 
and G. PICTURE character strings must not 
have more than 255 characters. A PICTURE 
character preceded by the replication Ғас- 
tor k is considered as k PICTURE 
characters. 


PICTURE Data 

Data declared with tne PICTURE attribute 
must not have more than 15 digit-characters 
for numeric fixed-point data and 16 digit- 
characters for the mantissa and two for the 
exponent of numeric floating-point data. 


Pictures with the fill character % pre- 
ceded or followed by one of the characters 
+, -, 5, or 5 cause these characters to be 
replaced by * when the variable has a value 
of zero. Similarly, CR or DB are replaced 
by **, 


The picture character B is implemented 
aS a conditional insertion character when 
used in conjunction with a drifting 
character. 


Procedure Default Condition 

The default condition for all procedures 
excluding built-in functions and library 
subroutines is IRREDUCIBLE. The default 
condition for all data is ABNORMAL in the 
DOS/TOS PL/I compiler. 
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The PL/I Subset language does not have 
the attributes REDUCIBLE, IRREDUCIBLE, 
NORMAL, and ABNORMAL. Therefore, the user 
should familiarize himself with these items 
if he wishes to run programs written in the 
PL/I Subset language under CS control. For 
details on these attributes see the SRL 
publication IBM System/360, Operating Sys- 


———L———————L———————————————————————————— 


Order No. GC28-8201. 


PROCEDURE Statement 
The OPTIONS attribute permits an options 
list, the form of which is (MAIN (, 
ONSYSLOG]). The MAIN option specifies this 
procedure to be the initial procedure. The 
ONSYSLOG option specifies that all output 
as a result of action taken due to an ON 
condition is to be printed on the device 
assigned to SYSLOG. If both options are 
used, they must appear in the order given 
above. Procedures declared with the 
OPTIONS attribute cannot be called from 
other procedures. 


put Statement 


LI———————————— 


If a qualified name is truncated on the 
right, the remaining part of the qualified 
name must be unique. For example, in the 
structure 


DECLARE 1 ATR, 
2 A1, 
3 B1, 
3 B2, 
цр, 
4 D2, 
2 A2, 
3 81, 
t D3, 
ц рі, 
3 ВЗ; 


the qualification ATR.B1.D3 is not allowed 
Since ATR.Bi is not unique. The correct 
qualification would be ATR.A2.B1.D3. Ambi- 
guous names may not be flagged by the com- 
piler, and the code produced for such ambi- 
guous references is unpredictable. 


Repetition Factor 

A repetition factor must be an unsigned 
decimal integer. Its length is restricted 
to three digits. Its value must not exceed 
255. The two examples below are in error: 


DECLARE A PICTURE "(0010)Х"; 
DECLARE B PICTURE ' (260)Х"; 


No embedded blanks are allowed in the 
repetition factor. E.g. DECLARE C PICTURE 
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"(1 2)9'; is invalid. However, preceding 
or following blanks are allowed, as e.g. іп 
DECLARE D PICTURE'( 4)X'*; 


= ee --- тет. 


Declaration of a scale factor is permitted 
oniy with decimal fixed-point data. It may 
range between 0 and 15 and must be 
unsigned. 


The total number of identifiers, constants, 
and delimiters (excluding insignificant 
blanks and ccmments) contained in a state- 
ment must not exceed 230. 


The number of different identifiers and 
constants (excli 
tained in an ex 


for each statem 


conct ants nat 


т 
aa 1 


4 


"чем 
wu ы? 
ited to 90 


ir 4 VA 
5 A іс lim 


Note: Тһе above restrictions аге applic- 
able only if the program is compiled ona 
16K system. Each additional 4K available 
to Tne compiler allows an equivalent 


ee о од EY ST дода чки шш e SY мш Шш еме а = 


The maximum logical depth of a structure is 
8. ‘The maximum level number is 255. The 
number of names in a structure is 
restricted to 62, if 10K are available to 
the compiler (766 if 46K are availabie). 
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This includes the major-structure name, 
minor-structure name(s), and structure- 
element names. 


Structures (level numbers) 

Any embedded blanks in level numbers will 
be deleted from the number string during 
compilation and no еккок message will be 
given. Level numbers may only be factored 
for elements of a structure, i.e., if fac- 
torization occurs in a structure declara- 
tion, the corresponding items are reco- 
gnized as structure elements. 


For example, in the declaration 


DCL 1 A, 


U) N 
м ^^ 


B,C,D 
E,F,G 


ч” d 


- 9% 


B, C, D, E, F and G will all be assumed to 
be elements of structure A, and will be 
assigned the logical level 2. 


In order to obtain the structure 


DCL 1 A, 
2 B, 
2 C, 
2 D, 
3 Е, 
3 F, 
3 G; 


the declaration of D must be removed from 
tne factorization brackets. H1 
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Conversion of Numbers in Character Form 
Into Binary Numbers 


The example in Figure 70 (encircled numbers 
are used for reference purposes only) shows 
how numbers in character form may be con- 
verted into binary numbers. For this pur- 
pose the time is used. 


PUT EDIT ('HOUR','MIN','SEC','MULL',]Y) Note, however, that the example shows 


(SKIP,X(3),A (4) ,X (2) „А (3) ,Х (2) „А (3), machine-dependent programming and was cho- 
X (2) +A (4) , SKIP,F (6) ,P (5) ,F (5) „Е (6)) 


sen for illustration purposes only. 


The current time is obtained with the 
TIME built-in function (1) which returns a 
DECLARE 1 1, 2 character string of length nine, in the 
5 in АА (2), form hhmmssttt, where: 
(2) CR са. UNT 
8: i ИЕ | hh is the current hour of the day 
: : mm is the number of minutes 
SS is the number of seconds 
ttt is the number of milliseconds in 
machine-dependent increments 


: Through the use of the STRING pseudo- 
HOUR? BIN PIXED(31), variable the time (nine characters) is 

Т! assigned piece by piece to the elements of 
х @ (the lengths of the pieces being 


Ak я ұй _ determined by the lengths of the elements 
STRING (I) =ТІМЕ; in xX). 
Үс *0000111100001111*8 ; 


" ety m )i Take, for example, the time 


62319080 — (4 P. M. , 23 minutes, 19 seconds, and 
80 milliseconds) 





B1=SUBSTR (Hy 1,8) ; 
B2-SUBSTR(B,9,8 ) ; 
B2 «B1 * 10108 





To convert from character to binary, the 
UNSPEC built-in function (3) is used which 
returns a bit string that is the internal 
representation of a given value. Thus, the 
characters '1' and "6" would be represented 
as 





Figure 70. Conversion of Numbers in 
Character Form to Binary 
Numbers 
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_ То eliminate the zone portion of the 
characters, a mask is used and "anded" 
with the binary representation of the 
characters '1' and '6' ©: 


is multiplied by ten (which would yield a 
value of ten) and the value of B2 (six) is 
added (giving a total of sixteen). 


The result must have a precision of 


Эл annans ул d$ dih nenni ot on зале Far 
зі ассогаіпа хо «пе precision ruyes ror 


binary multiplication ( ( and (L0) ), if 
truncation is to be avoided. 


The method that is used to convert the 
hours is also used to convert the minutes, 
seconds, and milliseconds. The results are 
returned to the invoking procedure which 
prints them in the following form (СЗ : 





. Although the first byte of Н now would 
contain binary one and the second binary 
Six, the value of H would not be sixteen. 
To obtain an actual value of binary six- 
teen, the following is done: HOUR MIN SEC MULL 

16 33 8 960 
HOUR MIN SEC MULL 

16 33 9 80 
HOUR MIN SEC MULL 
16 33 9 220 
HOUR MIN SEC MULL 

16 33 9 360 


HOUR MIN SEC mull 


~ ~ ач aso ат 


The SUBSTR built-in function is used to 
(a) extract the first eight bits of H 
(which would be '00000001') which are 
assigned to B1 © and (b) extract the 
second eight bits ('00000110') which are 


assigned to 82 (7. Then the value of B1 


а ЫЫ тала wee 


144 


Storing And Retrieving Statistical Data how volumes of statistical data that are 
too large to fit in core storage may he 

The example in Figure 71 (encircled numbers stored on disk and retrieved, 

are used for reference purposes only) shows 


JOB STATLAB BEGIN OF JOB 

ASSGH SYSOO9,X'291' LOGICAL DEVICE ADDRESS IS 
ASSIGNED TO PHYSICAL DEVICE (SEE ENV ATTRIBUTE) 

DLBL STATLI,'LAB 6 DATA FILE',O,SD 

STATLI = FILENAME USED IN PROGRAM 

'LAB 6 DATA FILE'-IDENTIFICATION OF DATA SET ON DISK 
O MEANS THAT THE FILE MAY BE OVERWRITTEN ANY TIME 

SD INDICATES A SEQUENTIAL DISK FILE 

EXTENT SYSOO9,PLIDO3,1,0,1800,40 

SYSOO9 = LOGICAL ADDRESS OF EXTENT (SEE ENV ATTRIBUTE) 
PLIDO3 = SERIAL NUMBER OF VOLUME TO WHICH EXTENT BELONGS 
1 INDICATES A DATA AREA 

О = EXTENT SEQUENCE NUMBER 

1800 = RELATIVE TRACK NUMBER (TRACK О OF CYLINDER 180) 
40 = NUMBER OF TRACKS THAT MAY BE USED 

ASSGN SYSO10,X’ 291" 

DLBL STATLA "ТАВ 6 DATA FILE',O,SD 

EXTENT SYSO10,PL1D03,1,0,1800, 40 

OPTION LINK,LIST,SYM,ERRS,60C,NODECK,LISTX, DUMP 

EXEC PL/I EXECUTION IS INITIATED 


* 
* 
ж 
ж 
// 
ж 
ж 
ж 
ж 
ж 
ж 
// 
// 
// 
// 
// 


2 


READ PILE (STATLA) INTO (1); 
X) (5КІР,20 F(4,0)) ; 





Figure 71. Storing And Retrieving Statistical Data 
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The program creates 5000 values (1) 




















which are stored on disk in groups of 10 11 12 13 14 15 16 17 18 19 20 11 

values each (®© and (3). For this pur- 1 2 3 8 5 6 7 8 9 10 1 
pose a nested DO-group is used (D. | | 1 2 3 4 5 6 7 8 9 10 1| 

1 2 3 4 5 6 7 8 9 10 1 

1 2 3 4 5 6 7 8 9 10 1 

Тһе same data is then retrieved again 1 2 3 wu 5 6 7 8 9 10 1 
from disk @) and printed in the form shown 1 2 3 4 5 6 7 8 9 10 1 
in Figure 72 Q . їїт 2 3 4 5 6 7 8 93 10 af 
| | 1 2 3 4 5 6 7 8 9 10 1 

і 1 2 3 4 5 6 7 8 9 10 1 

| 1 2 3 4 5 6 7 8 9 10 1 

1 2 3 4 5 6 7 8 9 10 1 

1 2 3 4 5 6 7 8 9 10 1 

1 2 3 4 5 6 7 8 9 10 1 

1 2 3 4 5 6 7 8 9 10 1 

1 2 3 4 5 6 7 8 9 10 1 

1 2 3 4 5 6 7 8 9 1 

1 2 3 4 5 6 7 8 9 1 

| 


Figure 72. Program Output of STAT 


Creating And Retrieving a REGIONAL(1) File 


The program shown in Figure 73 (encircled 
numbers are used for reference purposes 
only) shows how а REGIONAL(1) file @ may 
be created and retrieved from disk. 
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// JOB CLEAR 
// ASSGN SYSO011,1'291' 





i // DLBL UOUT,'CLASS',000 , 
Е 1500,5 
| // EXTENT SYSO11,PLIDO3, 1,0, ү ыы ыкы 
Ї 
| 


Preformat Disk Агес 


EXEC CLRDSK : 
(2) 44 / Clear And 
/ 


I CLEAR DISK UTILIT 


M^ iw да да ЗА ал д. d AA VoL ы 


UTILITY CONTROL CARDS 2^ 
// UCL В=(К=0,0=080) -X'40't, ON 
| // END 
SPECIFIED PARAMETERS 
(EY LENGTH ~ O F 
DATA LENGTH - 080 . > 
PILL CHARACTER - T 


ње 


V 
2 
) 





E CLASS FILZ С 
1 


X CHARACTER (80); 
IREC PICTURE '(8)9* 





Figure 73. Creating And Retrieving a REGIONAL(1) File 
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Before а REGIONAL(1) file can Ге 
created, the extents used by the file must 
be preformatted by the DOS Clear Utility 
program 2) „ which creates dummy records 
that contain a string filled with user- 
defined characters Ô - Only when the disk 
area preformatted, can the REGIONAL(1) file 
actually be created with the OUTPUT attri- 
bute @. 


Each record in the file has a length of 
80 characters (@ and ®©). Те key © 
which must be declared as a numeric- 
character variable with the attributes 
PICTURE'(8)9' is not contained in the reco- 
rd; it is not written on disk, but only 
indicates the relative number of the record 
in the file. The first record in a 
REGIONAL(1) file always has the relative 
record number 0 ( (7 and ). The key 
used to identify the record on disk must be 
specified in the KEYFROM option (9) of the 
WRITE statement, or in the KEY option 
of the READ statement. 


Printed, the records of the program 
shown in Figure 73 would look as shown in 


Figure 74. 


123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 
123456789 


Figure 74, 
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0123456789 
4123456789 
8123456789 
12123456789 
16123456789 
20123456789 
24123456789 
28123456789 
0123456789 
4123456789 
8123456789 
12123456789 
16123456789 
20123456789 
24123456789 
28123456789 





Program Output of FTEST 
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Creating and Updating a Sequential 
Disk File 


The three programs shown in Figures 75 
through 77 (encircled numbers are used for 
reference purposes only) will create a 
file, update the file, and punch the file 
back onto cards. It is a sequential file. 
The input is also seguential. 


. 
A -* ~ 


The program shown in Figure 75 creates а 
sequential disk file @ whose records are 
80 bytes long. The input for this file is 
furnished by presorted cards (2). The 
records on the cards are just read @ and 
written onto disk as they are. 


7c 


In the program shown in Figure 76 the 
data on disk created in the first program 
is updated (1). Input for any updates is 
furnished by other pre-sorted cards (2). 


The information that is processed con- 
cerns college students, their credit hours, 
grade points, etc. (3). The updates 
reflect changes during a semester. 


The update process is as follows:  Stu- 
dent identification (ID) on card records 

are compared with student ID on 
disk records. If a disk record ID is 
smaller than the corresponding card ID, a 


new disk record is read in ©, ©) . If the 
ID numbers are equal, the disk record is 
updated depending on the code of the card 
file record. The codes may be one of the 


following: 
В -- concerns only reqular hours, and grade 
ut 5 A ACT fon ANS 
point changes (We Yr (09) 
F -- concerns only total hours attempted 
(01), (2, @3)) 
N -- concerns credit hours ET) ” (5) ғ 


(16) ) 


Р -- concerns probation ( 4? 4 > ) 

А -- concerns only attempt to change hours 
се). @9. бу; 

G чао —= 


concerns hours towards graduation 


When a the record is 
onto disk (25). ID errors Gà 


written back 
and data 


errors (27) “dre signalled ру frinting them 
out. Thé third program (shown in Figure 


"and (QD 


77) reads the data on disk (@ 
as they are (3), into 


and punches them, 
cards (4). 





JOB CUMBUILD 
DLBL IJSYS10, 
EXTENT 5Ү5010,Р11003,%,0,1500,250 
ASSGN 5Ү5010,Х%291! 

OPTION LINK,SYM,LIST,ERRS,60C,NODECK,LISTI 


// 
// 
ГА 
// 
// 
// 


' DATA-FILE' 


EXEC PL/I 


@ 
o 


(3), READ: 
(4) ! 





DURE OPTIONS (MAI 
10 FILE OUTPUT RE 


91561: PROCED 
S 


DECLARE IJS 


C 


DECLARE CUMCARD FILE INPUT RECORD 
ENVIRONMENT (MEDIUM (SYSIPT,2540) F(80)); 






READ FILE(CUMCARD) INTO 


WRITE FILE(IJSYS10) FROM 





Figure 75. 
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Creation of Sequential Disk File 


BUFFERED 


(SEMGRADECARDS) 
SEMGRADECARDS) ; 


ENVIRONMENT (MEDIUM (515010,2311) F(80) BUFFERS (2)); 













JOB CUMUPDT 
OPTION LINK,SYM,ERRS,60C,NODECK,LIST,LISTXI 


ASSGN 515010,Х' 291" 
DLBL IJSYS10,'DATA-FILE' 
EXTENT SYS010,PLID03,1,0,1500,250 


EXEC PL/I 


ENVIRONMENT (MEDIUM(SYS010,2311) F(80)); 


DECLARE CUMCARD FILE INPUT STREAM 


ENVIRONMENT (MEDIUM (SYSIPT,2540) F(80)); 


DECLARE 1 SEMGRADECARDS, 


SEMHOURSATTEMPTED 
SEMHOURSOFNOCREDIT 
SEMGRADEPOINTS 
SEMGRADEPOINTAVE 
TOTHOURSATTEMPTED 
TOTHOURSOFNOCREDIT 
TOTGRADEPOINTS 
CUMULATIVEGRADEPOINTAVE 
TOTHOURSTOWARDGRADUATION 
SEMHOURSOFFORGGRADES 
MAJOR 

MARITALSTATUS 
ADVISOR 
CLASSIFICATION 
COLLEGE 

SEX 

STUDENTIDNUMBER 
STUDENTALPHANUMBER 
SEM 

YEAR 

AFFILIATION 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


799У9", 


"99", 


"999", 
"97999", 
"99979", 


"99", 


'999V9', 
'9V999', 
'999ү9', 


99", 
7999", 
"9", 
1999", 
'9', 
'9', 
'9', 


"99999", 
"99999", 


қ 
"99", 
ал 


STUDENTNAME 
CONTROLCODE 


CHARACTER (23), 
CHARACTER(1); _ 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


GRADE POINTS ARE OF FORM R+3.0 +9.0 (LETTER, Ғ9.0,Ғ10.0) 
R CARDS ARE REGULAR HOURS, GRADE POINTS CHANGES. 
F GRADE CARDS MAY BE POSITIVE OR NEGATIVE AND ONLY AFFECT TOTAL 
HOURS ATTEMPTED. NO-CREDIT CARDS ARE OF THE CHANGE NO HOURS 
ONLY AND ARE OF THE FORM N3.0 (LETTER, F9.0) */ 

/* A - CHANGE HOURS ATTEMPTED ONLY. */ 

/* G = CHANGE HOURS TO GRADUATION ONLY. */ 


/ 
ы 


*/ 


UNE NS ы а (Coon), F(5),A(2) ‚А(3)); 





Figure 76. Updating Sequential Disk File (1 of 3) 
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ПЦ EN EN ON: AE | | A ШЕРНЕ EE АРМ TS SL DUNS SSDS NER БЕН Di 
жайка A AS қала ч 
p———————————————————— TE раар ааа ран аран а 

ч 





Ор = ID; Pa ре | lob му с ОО 
NEWCARD: | И. A OSU ВЕ s 
| LOOP: READ FILE (1251510) INTO (SEMGRADECARDS) ; 

РНАМЕ = SUBSTR (STUDENTNAWE, 1,2): 

| ТЕ STUDENTIDNUMBER = ID THEN GO TO UPDATE; 

| ELSE ТЕ STUDENTIDNUMBER « ID THEN GO TO LOOP; 
ELSE DO; TE TOR ES usi 



















PUT EDIT STUDENT ib FROS FILE* ,$ 





LI UE 1 ee aaae: Ий ЖЫ 


| CARD ID RUNDER sib p 
pur EDIT Микен ды макы кынык. 
GO ТО CHECKNEXTCARD; 2 ca | 
END; | | кн 
/* CHECK FIRST TWO LETTERS оғ stobENT ST | 
UPDATE: ІР FWAME ~~ CHANE THEN GO TO IDERROR; 
PUT EDIT (STUDENTHABE) {SKIP (2) ,À) : ue 
PUT EDIT {* ВЕРОВЕ UPDATE!) (SKIP,À PSU 






PUT EDIT (* ID',ID,' ALBHA',CHANB,* 7 
TOTHOURSATTEMPTED, * HRS. ИС", 








TOTHOURSOFWOCREDIT, * GRADE PT 

' HRS. TO.GHAD.', TOTHOURSTOWARDG 

) ( A,F(6) АА (3) , AT (5,1) BF | 

/* SCAN REST OF CARD AND UPDATE FILE 
NEITDATA: GET EDIT (314%) Um 
IF SIGN - 'R' THEN HOURS; 

IF SIGN 

IF SIGN 

IF SIGN 

IF SIGN 

IF SIGN 


ГЕ $ | 
| | 
'F' THEN 55 “ FGRADE; | 
'N' THEN GO TO NOCREDIT; i 
!p* THEN GO TO PROBATION: 
'A' THEN GO TO ATTHOURS; 
'G' THEN GO TO GRADHOURS; MEN 


1 
Li 
- 


ІР SIGN * THEN GO TO РАТАВЕВОЋ; SLSR GO TO CH ЕС 

Н0075: СЕТ EDIT (CREDITHOURS,GRADEPOINTS) (F(9,0) -F(10,0)) ; 
TOTHOURSATTEMPTED = TOTHOURSATTEMPTED + CREDITHOURS; 
TOTGRADEPOINTS = TOTGRADEPOINTS + GRADEPOINTS; 
TOTHOURSTOWARDGRADUATION = TOTHOURSTOWARDGRADUATION 

*CREDITHOURS; 

GO TO NEXTDATA; 

(2) FGRADE: GET EDIT (CREDITHOURS) (F(9,0)); 

TOTHOURSATTEMPTED = TOTHOURSATTENPTED 





+ CREDITHOURS; 
GO TO NEXTDATA; 
(5) NOCREDIT: GET EDIT (CREDITHOURS) (Р(9,0)); 
TOTHOURSOFNOCREDIT = TOTHOURSOFNOCRRDIT + CREDITHOURS; 
TOTHOURSATTEMPTED=TOTHOURSATTEMPTED + CREDITHOURS; 
TOTHOURS TOWARDGRADUATION=TOTHOURSTOWARDGRADUATION+CREDITHOURS; 
GO TO NEXTDATA; 
PROBATION: CONTROLCODE='5'; 
GET EDIT (DUMMI) (F(9,0)); 
GO TO NEXTDATA; 
ATTHOURS: GET EDIT (CREDITHOURS,GRADEPOINTS) (F(9,0),F(10,0)); 
TOTHOURSATTEMPTED = TOTHOURSATTEMPTED + CREDITHOURS; 
GO TO NEXTDATA; 











Figure 76. Updating Sequential Disk File (2 of 3) 


152 


GRADHOURS: GET EDIT (CREDITHOURS,GRALTEPOINTS) (F(9,0),F(10,0)); 
À TOTHOURSTOWARDGRADUATION = TOTHOURSTOWARDGRADUATION 
+CREDITHOURS; 
(3 СО ТО NEXTDATA; 
CORRECTFILE: 


REWRITE FILE (145Ү ) FBOM (SEMGRADECARDS) ; 


: EDIT ( ID ERROR, UPDATE ID „СМАМЕ, 
69 D',STUDENTIDNUMBER,' FILE ALPHA', FNAME) 
(SKIP,A,F(6),A,A (3) ,A,F (6) ,A,A(3)) ; 
GO TO NEWCARD; 
DATAERROR: PUT EDIT (* DATA ERROR, UPDATE ID',ID,*  ALPHA',CNAME) 
@ (SKIP,A,P (6) „АА (3)) ; 
GO ТО NEWCARD; 





Figure 76. Updating Sequential Disk File (3 of 3) 


JOB CUMPCH 

ASSGN 515010,Х'291' 

DLBL 1Ј5151С 

EXTENT SYS010,PLIDO3, 1,0, 1500,250 

OPTION LINK,SYM,LIST,ERRS, 60C, NODECK, LISTX 
EXEC PL/I 


DECLARE IJSYS10 FILE INPUT RECORD 
BUFFERED 
ENVIRONMENT (МЕРТОМ (573010,2311) F(80) BUFFERS (2)); 
DECLARE CUMCARD FILE OUTPUT RECORD 
BUFFERED 
N 


READ: READ FILE(IJSYS10) INTO (SEMGRADECARDS) 
TE FILE(CUMCARD) FROM (SEMGRADECARDS) 





Figure 77.  Punching Disk Data Into Cards 
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ARTA сон SS LR КЕСА A SEAT ES КА ШИ Е-МЕИЛ Уаш СВ MES ПЕ 


The DO WHILE Statement 


The program shown in Figure 78 shows how 
the sum of + 1/2 + 1/3 + 1/4 + 


1, „.. шау be computed using the DO 


мА с. 


1/5 + 
WHILE statement. 


SUM-SUM*1/BN; 
END; 

PUT LIST (SUM,N); 
END; 
Figure 78. Example Illustrating The Use of 
The DO WHILE Statement 


Using The Console For Communications 


The example in Figure 79 (encircled numbers 
are used for reference purposes only) shows 
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how the console may be used for communica- 
tion with a program. 


Four files are used: a tape input file 

, а tape output file (2, а card output 
file ; and a print file (no declaration, 
default). input from the tape input 
file may be written on tare, punched into 
cards, or printed. The answer as to what 
is to be done, must be given by the opera- 
tor using the console (9. The operator 
has to type any combination of "PRINT", 
"COPY", or "PUNCH". 


САД 
1115 


The answer is then scanned by the pro- 
gram to determine first whether COPY 5, 
then whether PRINT (б), and finally whether 
PUNCH (7) has becn returned. If the reply 
that is searched for is not found in 
ANSWER, 0 is returned by the INDEX built-in 
function. 


Depending on the answer of the operator, 
the input is written onto tape (8 , punched 
1 а 

Na 


cardac о ar nrintead 
Cares OF Orin ест 


- 2 


// JOB MON_43 

* PAUSE READY TAPES MASTER ON 180 

// ASSGN SYSOC1C,X' 182' 

// ASSGN 5Ү5011,1181! 

// OPTION LINK, LIST,SYM,ERRS,60C,NODECK,LISTI,DUMP 
ACTION NOMAP 

// EXEC PL/I 


UTIL: PROCEDURE OPTIONS (MAIN); 
DECLARE TAPEIN FILE RECORD SEQUENTIAL INPUT ENVIRONMENT 


О) | (MEDIUM (SYS010,2400) CONSECUTIVE F(800,80) BUFFERS (2) 
NOLABEL) ; 
DECLARE TAPEOU FILE RECORD SEQUENTIAL OUTPUT ENVIRCNMENT 

(2) | (MEDIUM (SYS011,2000) CONSECUTIVE F(800,80) BUFFERS (2) 
NOLABEL) ; 

(3) | DECLARE CARDOU FILE RECORD SEQUENTIAL OUTPUT ENVIRONMENT 


(MEDIUM (SYSPCH,2540) CONSECUTIVE F (80), BUFFERS (29: 
DECLARE CARD СНАВ(80); : m 
DECLARE ANSWER CHAR(20); 
DECLARE (COPIBIT,PBINTBIT,PUNCH 
DECLARE LOGIC СНАВ (3); | 
ON ENDFILE (TAPEIN) GO TO DONE; 
START; {| 
ANSWER = * '; COPYBIT = + 
| DISPLAY (' TYPE CONTROL WORDS 











| | PUNCB, coi- ANY COMBINATION 
“* ) REPLY (ANSWER); 0220000 eu 
| M=INDEX (ANSWER, 'COPY'); 

ІР М ~= 0 THEN СОРТВТТЕ 


@ 

9) 

(6) i M=INDEX (ANSWER, 'PRIN 
© 















IF M <= 0 THEN PRINTBIT = #1 
| M=INDEX (ANSWER, *PUNCH®) ; 
ІР 5 ~= 0 THEN P 


ит 


READ FILE E 
ТЕ COPYBIT = ‘1’ THEN 
Е WRITE FILE (TAPEOU) FROM (CARD); 
IF PUNCHBIT - '1' THEN 
9) | WRITE FILE (CARDOU) FROM (CARD); 
| IF PRINTBIT = 71! THEN 
PUT EDIT CARD AERE RED) 4 





Figure 79. Using the Console for Communications 
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